Help for this page
mysub(\@arrofhash); ... $aof[0]->{somekey}++; ... }
mysub(@arrofhash); sub mysub { ... $aof[0]->{somekey}++; ... }
mysub(%hash); sub mysub { ... print $args{somekey},"\n"; ... }