#! /opt/third-party/bin/perl

open(FILE, "<", "a");
@arr = <FILE>;
close(FILE);

for( my $i = $#arr; $i >= 0; $i-- ) {
  print "$arr[$i]" ;
}

exit 0