my @old_hashes;
my @new_hashes;
my @wanted_keys = qw/foo bar baz/; #etc
@new_hashes = map{ my $x = $_; +{ map { $_=>$x->{$_} } @wanted_keys } } @old_hashes;