while(my $x = <*.*>)
{
  do_stuff($x);
}