in reply to grep for hash?
Just with map:
use strict; use warnings; use Data::Dumper; my $orig = { 'foo' => 2, 'bar' => 4, 'boo' => 1, 'zar' => 5 }; my $dest; map { /oo/ and $dest->{$_} = $orig->{$_} } keys %$orig; print Dumper $dest; __END__ Output: $VAR1 = { 'boo' => 1, 'foo' => 2 };
hth,
PooLpi
'Ebry haffa hoe hab im tik a bush'.
Jamaican proverb
In Section
Seekers of Perl Wisdom