Help for this page

Select Code to Download

Select or download this

sub test {
   my ($data) = @_;
...

my %data = ...;
test(\%data);