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

##</code><code>##

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

##</code><code>##

use IO::Dir;

my $dh = IO::Dir->new('.');
while (defined(my $filename = $dh->read))
{
    next unless $filename =~ /\.seq$/;
    print "$filename\n";
}