If I understand the issue, you just need to pass two hashes to post2Web:

sub post2Web {
  my ($jRef, $iRef) = @_;

  # Now just use $jRef, and $iRef

  printf INFO $infoformat, 'jobid', $jRef->{jobid};

  printf INFO $infoformat, 'backup_time', $iRef->{backup_time};
}

# Call it with references to your hashes as you would expect:
post2Web(\%jobs, \%images);
[download]

Russ
Brainbench 'Most Valuable Professional' for Perl