...
...
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";
}