#!/usr/local/bin/perl

my @myarray = ([(1..7)],[(1..7)]);
my $myarrayref = \@myarray;
my @newArray = ( 0, @{$myarrayref}[1..$#{$myarrayref}]);


for my $len (0..$#{$myarrayref}) {
        print "PRE Alteration: @{$$myarrayref[$len]}\n";
}

alt_ref($myarrayref);

for my $len (0..$#{$myarrayref}) {
        print "POST Alteration: @{$$myarrayref[$len]}\n";
}

sub alt_ref {
        my ($arr_ref )= @_;
        my @new_arr = @{$arr_ref};
        for my $i (0..$#new_arr) {
                pop(@{$new_arr[$i]});
        }
        for my $len (0..$#new_arr) {
                print "DURING Alteration: @{$new_arr[$len]}\n";
        }
}