@sorted_array = map {$_ -> [0]}
                sort {$a -> [1] <=> $b -> [1]}
                map {[$_ => (split /$delim/ => $_) [$key]]} @$array_2_sort_ref;