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