my %hash2 = map { ( $_, $hash1{$k} ) } grep { m/regex/ } keys %hash1;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!