my @desired_keys = grep { /\Q$dir\E.*?\.pm$/ } keys %$packlist;
my %hash;
@hash{ map { /\Q$dir\E(\w+?)\.pm$/; $1 } @desired_keys } = @desired_keys;