my @dirs = map { s/\Q$dir\E(\w+?)\.pm$/$1/ } keys %$packlist;
for (@dirs) {
  print $_, "\n";
}