for ( 1 .. $popCt ) {
    my ( $refToArrA, $refToArrB, $refToArrC ) = makeArrays();
    &gener( $refToArrA, $refToArrB, $refToArrC );
}

# ...

sub gener
{
    my ( $refToArrA, $refToArrB, $refToArrC ) = @_;
    ...
}