my @files = grep(-f, <*.*>);

foreach my $file (@files)
{
 print "file = $file\n";
}