2011-03-01T12:38:53 bianca

[...]
Gibt es da garnichts mit List::Util oder map() oder soetwas "perliges"?
[...]

1
2

use List::MoreUtils qw/firstidx/;
my $idx = firstidx { $_ eq $test } sort keys %hash;