Select Code to Download

#prepopulate copy error array;
sub popfilea {
...
    }
  }
}

sub popnum1 {
  ( $x, $y ) = @_;
...
     return $aoa[$x][$y] + $aob[$x][ $y-1 ];
  }
}

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

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