#!/usr/bin/perl -w
@rocks=qw< bedrock slate lava>; #qw后定义数组(列表)，可用{},<>,/ /,或其他一对符号表示
# qw< bedrock slate lava>定义@rocks= ("bedrock","slate","lava")
foreach $rock(@rocks){
$rock="\t$rock";
$rock.="\n";
}
print "The rocks are:\n",@rocks;
