Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
#
...
 map  { [$_, ($_ eq $first ? '' : $_)] } 
 keys %$test;
print "Erg: " . Dumper(@list);

Select or download this

#
# above code repeated
...
 map  { [$_, ($_ eq $first ? '' : $_)] } 
 keys %$test;
print "Erg2: " . Dumper(@list2);