Just thought whether it is possible to do it with "map" function? Make it into one-liner?
It is.
my %myNEWhash =
map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash;-- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
