Select Code to Download

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

foreach ( keys %hash)
  print $_ ;
}

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