switch ($_) 
  {
      case  qr /filename\s*=\s*(\S+)/   { $file = basename($1);}
      case  qr /go/ { if (exists $files{$file}) 
                      { push @PLACE, @batch; delete $files{$file}}}
  } @batch = ();