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