自己联系的一个小perl

#!/usr/bin/perl


my %a = ("id" => "0101", "className" => "jane01");


my %b = ( id=>"0101", className=>"jane01");


my %c =( id,"0101",className,"jane01");


print $a{"id"},"\n";


print $b{id},"\n";


print $c{id},"\n";




print %c->{className},"\n";


###########################################################


@testCaseList=(1,2,3);


print $testCaseList[2],"\n";


@testCaseList2=();


push(@testCaseList2, {"janedebug","5555"});
push(@testCaseList2, {"janedebug02","66666"});
push(@testCaseList2, {"janedebug03","77777"});


print $testCaseList2[0]->{janedebug}, "\n";




foreach my $hash (@testCaseList2)
{
    print $hash->{"janedebug"},"\n";
}


###########################################################