my %jobs = (
   'senior' => ' Senior',
   'exec' => ' Executive'
   );

my $quick_build='listing';
my $quick_jobtype='exec';
  
print "job types...<br>\n";
foreach my $key (keys %jobs) {
    print "$key, $quick_jobtype...<br>\n";
    my $jobvar = $key;
    my $jobname = $jobs{$key};

    if (($quick_jobtype && ($quick_jobtype eq $jobvar)) || (!$quick_jobtype)) {
        $groupfile = $jobvar;
        $grouptitle = $jobname;

        # heredocs are quite good for SQL...

        $sortby = <<EOF;
WHERE jobtype LIKE '%$jobvar%' AND active='yes' AND jobstatus!='suspend' 
ORDER BY dateadded DESC, jobtitle ASC
EOF
        print "$sortby";
        print "starting build lists<br>\n";
        my $building_cat = "yes";

        # I don't know what this function does
        # but pass parameters to it, don't use global variables.
        # e.g. Build_Lists_Both( $sortby, $building_cat, $groupfile ) ;
    } # end if ($cat1 eq $cat_db_var)

}    
    

} # end for ($st=1; $st<=$jobvar_list; $st++)