my $queue = './Job.sh';
open my $submit, '|-', $queue
    or die "Couldn't launch queue submission '$queue': $!/$?";

...
for my $job (@jobs) {
    print {$submit} "$job\n";
};