perl(); sub perl { $h = "hacker"; @j =
qw(Perl Just Rocks); $j[$#j+1]=("another");
print "\n@j[1, 3, 0] $h;\n"; }