Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = qw(e h l o);
...
(my($i, $j, $k, $l) = (0.99876, 1.00123, 2.499999, 3.5));
print($ra[$j], $ra[$i], $ra[$k], $ra[$k], $ra[$l]);
-e syntax OK