Select Code to Download

ARRAY(0x80fe5a8)
ARRAY(0x80fe5d2)
ARRAY(0x80fe6f4)

# Data::Dumper saves the day again
use Data::Dumper;
print Dumper (\@name);
...
{
     print join (',', @$row),"\n";
}

my @array      = qw[ 1 2 3 ];
my $array_ref  = \@array;      # Backslash makes a reference
my @array_copy = @$array_ref;  # @ de-references array reference
...
print $array[1];       # Should be '5'
$array_copy[1]  = 6;   # Modifies @array_copy, not @array
print $array[1];       # Still '5'