#!/usr/bin/perl
use strict;
use warnings;

my @row = ( [1] ) x 3;

print @{$row[2]}, "\n";
print @{$row[3]}, "\n";

##</code><code>##

sub popnum3 {
    use Data::Dumper;
    my ( $x, $y, $z ) = @_;
    my @row  = eval{@{$aob[ $y - 1 ]}} or die "$x\n$y\n$z\n", Dumper $aob[ $y - 1 ];
    my $mean = mean(@row);
    $aob[$x][$y] = $mean * ( 1 + $z );
    return $aob[$x][$y];
}