Help for this page
print "$file[$_]" for ($i-3 .. $i-1);
print $file[$_] for grep $_ >= 0, $i-3 .. $i-1;