In get_suite_vars, you need to change

 foreach $key (keys($job_vars)){
[download]

to

 foreach $key (keys (%{$job_vars} ) ) {
[download]

Also I would change

print "$key = $$job_vars{$key}[0] & $$job_vars{$key}[1]\n";
[download]

to

print "$key = $job_vars->{$key}[0] & $job_vars->{$key}[1]\n";
[download]

Plus, just to be sure that the data strcutures look ok, I would add a line like (use Data::Dumper at top of code)

print Dumper $job_vars;
[download]

oh yeah - using strict will help a lot too...