#prepopulate copy error array;
sub popfilea {
  foreach my $ya ( 0 .. $gener ) {
    foreach my $xa ( 0 .. $total ) {
      $aoa[$xa][$ya] = (int rand(1+2*$copyerr)-$copyerr ) /$PCNT;
    }
  }
}

##</code><code>##

sub popnum1 {
  ( $x, $y ) = @_;
  if ( ($y==0) || ($aod[$x][ $y-1 ] ne 'a') ) {
     return $initial + $aoa[$x][0];
  } else {
     return $aoa[$x][$y] + $aob[$x][ $y-1 ];
  }
}

##</code><code>##

 
$coper = sprintf '%.2f', popnum1( $x, $y )

##</code><code>##

 
$coper = sprintf '%.2f', popnum( $model, $x, $y )