sub _text_to_list # { my $string = shift; my @list; $string =~ s/\s+//g; @list = split( ',', $string ); @list = map { # /^(\d+)-(\d+)$/ ? ( $1 .. $2 ) : # /^0*(\d+)$/ ? ($1) : # () } @list; # anonHash anstatt realHash: @list = sort { $a <=> $b } keys %{ { map { $_ => $_ } @list } }; return \@list; }