Select Code to Download

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

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