#!/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;