Iterating through the hashes will be pretty cheap in terms of programmer efficiency.
consider the following:

tie my %new,'Your::DBM::Module','all_New_Eng';
my ($key,$val);
foreach my $dbm (qw(is_New_Eng ps_New_Eng ses_New_Eng ss_New_Eng)){
    tie my %old,'Your::DBM::Module',$dbm;
    $new{$key} = $val while(($key,$val) = each %old);
}
[download]

That's all there's to it

-nuffin
zz zZ Z Z #!perl