processAorB ....{
   my @commonArray;
   commonStuff( \@commonArray, \%other, \$variables );
   ...
}
sub commonStuff {
   my ( $commonArrayRef, $hash, $var ) = @_;
   if ( $commonArrayRef->[0] > 37 ) { ...
 
   }
}