$ perl tuv.pl

$ cat tuv.pl
print $FH reverse @lines;
seek $FH, 0, 0;
my @lines = <$FH>;
open my $FH, '+<', $0;

use warnings;
use strict;