Why not be a little more flexible and defensive ...

my @unsorted;
while (<FILE>) {
    my @fields = m/([0-9]+)/g;
    @fields == 3 and push @unsorted, \@fields;
    }
my @sorted = sort { $a->[2] <=> $b->[2] } @unsorted;
[download]