given ($_) {
    when (/filename\s*=\s*(\S+)/) {$file = basename($1)}
    when (/go/ && exists $files{$file}) {
        push @PLACE, @batch;
        delete $files{$file}
}
@batch = ();