@sorted = map{$_->[0]} sort{$a->[1] <=> $b->[1]} map{ [$_, /(\d+)/g] } @unsorted;