Select Code to Download

sub ar_init {
        my $shift = shift ;
...
my $array_ref = ar_init(3, 2, 4, 'pop ');

print $array_ref->[2][0][3]