MYLOOP: while ( 1 ) {

  open my $fh1, '<', "$file1" or foobar($file1) and next;
  # irgendeine Verarbeitung
  close $fh1;}