s there a way to process a file from the bottom up instead of from the top?

use Tie::File;
my @ray=();
tie @ray,"Tie::File","myfile" or die $!;

for(my $i=$#ray;$i>=0; $i--){
   my $line=$ray[$i];
   # do something with it...
}

untie @ray;
[download]

Caveat:thoroughly untest!