foreach my $file ( grep{/\.seq$/ && -f "$dir/$_"}readdir DIR)