while (<*.*;*>) {
    my $file = $_;
    print "$file \n"; # or whatever.
}