foreach my $PDL (split/\s+/,`ls *.pdl | tr '.' ' ' | gawk '{print $1}'`)