opendir(my $sourceDH, $sourceDir) or die $!;
my @allfiles = grep /\.ffn$/, sort readdir($sourceDH);
closedir $sourceDH;