Array Perl

for $loopindex (0..4) {
    push @array, [1, 1, 1, 1];
}
print $array[0][0];