匿名數組和匿名hash ->

#匿名數組
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");