http://www.perlmonks.org?node_id=392006


in reply to Selecting particular key-value pairs in hashes

Non-destructively:

my %hash2 = map {$_ => $hash{$_}} grep {/^\d+_\d+$/} keys %hash;



pbeckingham - typist, perishable vertebrate.