each的用法及while 的使用方法

#!/user/bin/perl
my @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";
	}