Reference to array and hash

#!/usr/bin/perl -w
use strict;

my $initarray;
@$initarray = (1, 2, 3);

print @$initarray."/n";
print @$initarray[-1]."/n";
print @$initarray[1]."/n";

print $$initarray[-1]."/n";
print $$initarray[1]."/n";

print $initarray->[0]."/n";

my $inithash0;
%$inithash0 = (
a => 1,
b => 2,
c => 3,
);

print $inithash0->{'b'}."/n";
print $$inithash0{'b'}."/n";
my @inithash1;
@inithash1 = (
{
a => 1,
b => 2,

c => 3,

},

{

a => 4,

b => 5,

c => 6,

},

);

print $inithash1->{'b'}."/n";
print ${$inithash1}{'c'}."/n";

 

运行结果：

3
3
2

3
2

1
2
2
5
6