my $hash = map { /\Q$dir\E(\w+?)\.pm$/ and defined $1, $1 } keys %$packlist ;

##</code><code>##

foreach ( keys %hash)
  print $_ ;
}

##</code><code>##

 Odd number of elements in hash assignment at /usr/lib/p....