Select Code to Download

sub popnum3 {
    my ( $x, $y, $z, $zazb ) = @_;
    if ( $y == 0 ) {
...
    }
    return $aob[$x][$y];
}

sub popnum3 {
    my ( $x, $y, $z, $zazb ) = @_;
    if ( $y == 0 ) {
...
    }
    return $aob[$x][$y];
}

my @cPosns;
push @cPosns, pos $zazb while $zazb =~ m{(?=c)}g;
my $offset = splice @cPosns, rand @cPosns, 1;

tie my @aod, 'Tie::File', 'bias/array.txt', recsep => "\n";

...
}   

close $DATABASE or croak 'data1 not closed.';

my @offst = split /\,/xsm, $off[$y - 1];

 my $index  = int rand ($#offst);
 $offset = $offst[$index];