foreach my $filename (<*.seq>)
{
    print "$filename\n";
}