#
# above code repeated
#
my @list2 = sort { $a->[1] cmp $b->[1] } 
 map  { [$_, ($_ eq $first ? '' : $_)] } 
 keys %$test;
print "Erg2: " . Dumper(@list2);