@a = 1 .. 10;
$i = $ENV{myI} || 10;
print $a[$ENV{myI} = --$i];
do $0 if $i>0;