my %images = bpimagelist('$record->{client}'); my %jobs = bpdbjobs(); #### post2web ( \%jobs, \%images ); ... sub post2Web { my ( $jRef, $iRef ) = @_; ... #### post2web ( { jobs => %jobs, images => %images } ); ... sub post2web ( my ( $Args ) = @_; my $jRef = %{ $Args->[ jobs ] }; my $iRef = %{ $Args->[ images ] }; ...