#匿名数组
my $array = [qw(a b c d e f)];
print("@ $array\n");
my $array1;
@ $array1 = ("a","b");
$$array1[5] = "f";
$array ->[2] = "c";
@ $array1[3,4] = ("d","e");
print("@ $array1\n");
#匿名hash
my $hash = {"a" => "A",
"b" => "B"};
print(% $hash,"\n");
my $array = [qw(a b c d e f)];
print("@ $array\n");
my $array1;
@ $array1 = ("a","b");
$$array1[5] = "f";
$array ->[2] = "c";
@ $array1[3,4] = ("d","e");
print("@ $array1\n");
#匿名hash
my $hash = {"a" => "A",
"b" => "B"};
print(% $hash,"\n");