while(<INPUT>){
  chomp; push @array,[split];
}

##</code><code>##

@sorted = sort { $a->[2] <=> $b->[2] } @array