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