@sorted = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [ (length($all{$_}->[$sortValue])? '0' . $all{$_}->[$sortValue] : '1'), $_ ] } keys %all;