Select Code to Download

   for $key ( keys %job_categories )
    {
...
        if ($job_title =~ /$key/i) {
           $department = $job_categories{$key};
            print ( "found a match.  setting department to $job_catego
+ries{$key} \n");