#!/usr/bin/perl

$var = 10;

# $r 引用 $var 标量

$r = \$var;

# 输出本地存储的 $r 的变量值

print "$var 为 : ", $$r, "\n";

@var = (1, 2, 3);

# $r 引用  @var 数组

$r = \@var;

# 输出本地存储的 $r 的变量值

print "@var 为: ",  @$r, "\n";

%var = ('key1' => 10, 'key2' => 20);

# $r 引用  %var 哈希

$r = \%var;

# 输出本地存储的 $r 的变量值

print "\%var 为 : ", %$r, "\n";