my @files=();

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