pfaut answered your question, I'd just like to add some minor advice: you can remove redundancy in your assignments block by using a hash slice.

my ($job, $status, $client, $class, $files)
    = @{$jobs{$key}}{qw(jobid status client class files)};
[download]

Makeshifts last the longest.