Select Code to Download

mysub(\@arrofhash);

...
  $aof[0]->{somekey}++;
  ...
}

mysub(@arrofhash);
sub mysub {
...
  $aof[0]->{somekey}++;
  ...
}

mysub(%hash);
sub mysub {
...
  print $args{somekey},"\n";
  ...
}