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