#! perl -w
use strict;

my @array = ("0","1","2","3");
my $aref = \@array;

print "Original array: ", @array, "\n";

print "Pass original array to testnonref(): ";
testnonref(@array);
print @array, "\n";

print "Running sub passing array reference and printing array:";
testref($aref);
print @array, "\n";


sub testnonref {
        my @subarray = shift;
        $subarray[0] = "4";
}
sub testref {
        my $one = shift;
        $$one[0] = "4";
}