($fred, $barney, $dino) = ("flintstone", "rubble", undef);
($fred, $barney) = ($barney, $fred); 

##</code><code>##

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