perl -MO=Deparse -E'@n=7..9;$x=$n[i];say$x'
@n = 7..9;
$x = $n[0];
say $x;
-e syntax OK