Select Code to Download

my %new2 =
hmap { $_[1]{nick} =~ /rbush|fred/
...
          : ()
     } %$h;

bash-3.2$ perl hmap_good2.pl
syntax error at hmap_good2.pl line 39, near "] =>"
syntax error at hmap_good2.pl line 40, near ":"
Execution of hmap_good2.pl aborted due to compilation errors.

use Data::Dumper;

...
} %$h;

print Dumper ($new2), "\n";

my $new2 =
    hmap { $_[1]{nick} =~ /rbush|fred/
               ? ($_[0] => hmap { $_[0], $_[1] } $_[1])
          : ()
} $h;