[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
#数组赋值给数组
my @array1=("a","b","c");
#hash赋值给hash
my %hash1 = ("a"=>"A","b"=>"B");
#数组赋值给标量
$array1[3]=["d","e"];
#hash赋值给标量
$array1[4]={"d"=>"D","e"=>"E"};
print "@array1\n";
print "$array1[3][0]\n";
print "$array1[4]{d}\n";
print "$hash1{a}\n";
[root@rwsoda203db1 perl_tidb]# ./p.pl
a b c ARRAY(0x19422b8) HASH(0x19423f0)
d
D
A
