%hash2 = map { $_ => $hash{$_} } grep (/^cat/} keys %hash;

# return empty list if ternary test fails....

%hash2 = map { $hash{$_} > 10 ? $_ => $hash{$_} : () } keys %hash;