my @sorted_recs = sort { $$records[$a][2] <=> $$records[$b][2] } @records;