Select Code to Download

test(\%HoA1, \%HoA2, ...);

test(\%HoA1, \%HoA2, @a, "test");

test(\%HoA1, \%HoA2, "entry1", "entry2", "entry3", "test");

my ($HoA1,$HoA2,@a,$test) = @_;

#!/usr/bin/perl

...

print Dumper(\%HoA1);
print Dumper(\%HoA2);