请教perl的用法

frankhyk

自己写了一个，参考一下：
@hash_key=qw(a b c d e f);
@hash_value=qw(1 2 3 4 5 6);
foreach $string(@hash_key)
{
        my $temp=shift @hash_value;
           $hash_list{$string}=$temp;       
}
while (($str1,$str2)=each %hash_list)
{
        print("$str1=>$str2\n");
}

wolfwang2008

array slice