my %h2; /^cat/ and $h2{ $_ } = $h1{ $_ } for keys %h1;