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

for (@dirs) {
  print "|$_|\n" if ( $_ and length($_) > 2 );
}