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