#SubmitJob.pl
use strict;
use warnings;

my @jobs;

# do some stuff here...
...
# run the shell script

`./Job.sh`;

# generate the jobs..
@jobs=...

# print the jobs to STDOUT so that they can be picked up by the shell script:
foreach my $job (@jobs){
print $job;
}

exit 0;