for my $index ( 1 .. 12 ){
    my $line = $lines[ - $index ];
}