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];
"
hello

c:\@Work\Perl\monks>perl -wMstrict -MO=Deparse,-p -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];
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
(my(@ra) = ('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