my @line_array = <FILE>;

shift(@line_array);
pop(@line_array);
##</code><code>##

...
...
my @lines = (<$INFILE>)[1..-2];

my @unsorted = map [split], @lines;
my @sorted = sort {$a->[2] <=> $b->[2]} @unsorted;

for my $arr_ref (@sorted) {
   print "@$arr_ref\n";
}