Before the while() loop:

my @my_jobs;
[download]

Then change this: $my_job = "<tr><td style=\"width:60px;padding:0;\">$picture - <a href=\"/get-job.pl?jobnum=$jobnum\">$contact</a></td></tr>";, to:

push @my_jobs, "<tr><td style=\"width:60px;padding:0;\">$picture - <a 
+href=\"/get-job.pl?jobnum=$jobnum\">$contact</a></td></tr>";
[download]

Then change: print MAILHTML "$my_job"; to:

print MAILHTML "$_\n" for @my_jobs;
[download]