print "$file[$_]" for ($i-3 .. $i-1);

##</code><code>##

print $file[$_] for grep $_ >= 0, $i-3 .. $i-1;