my @files = <*>;

##</code><code>##

my @files=();

while (<*>) 
{
	push (@files,$_) if (-f "$_");
}