opendir DH, '.' or die "Couldn't open dir: $!" ;
my @files = sort { $a cmp $b } map /^([^.]*).*\.pdl$/, readdir DH ;
close DH;