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