@new_hashes = map { my %x; @x{@wanted_keys}=@$_{@wanted_keys}; \%x } @old_hashes; # untested