@records_sorted = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map { [$_, (split $split, $_)[$key]] } @records;