@rocks = qw/ bedrock slate lava /;
@tiny = ( );                       # the empty list
$dino = "granite";
@quarry = (@rocks, "crushed rock", @tiny, $dino);