mysub(\@arrofhash);

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