I'm guessing that what you want to do is pass both hashes into the subroutine. I can suggest two options:

my %images = bpimagelist('$record->{client}');
my %jobs = bpdbjobs();
[download]

1. Pass by reference

   post2web ( \%jobs, \%images );
   ...
   sub post2Web {
     my ( $jRef, $iRef ) = @_;
     ...
   [download]

2. Pass using argument hash

   post2web ( { jobs => %jobs, images => %images } );
   ...
   sub post2web (
     my ( $Args ) = @_;
     my $jRef = %{ $Args->[ jobs ] };
     my $iRef = %{ $Args->[ images ] };
     ...
   [download]

Certainly of the two I perfer the second alternative -- about as simple to setup, and further expansion is a piece of cake, complete with backward compatibility.

--t. alex

"Nyahhh (munch, munch) What's up, Doc?" --Bugs Bunny

ps Code not tested. :)