each的用法及while 的使用方法

#!/user/bin/perlmy @rocks = qw / bedrock salate rubble granite / ;             while (my( $index,$value)= each @rocks){print "$index: $value \n";}print "哈哈：\n";#两种相同的写法foreach $index (0 .. $#rocks){print "$index:$rocks[$index] \n";}