As SundialSvc4 mentioned reading about references should help. Here is a tutorial.

Here is some code to help you out. Tack this on to the end of your program.

use Data::Dumper;

print "*"x75,"\n";
print Dumper(@a);
print "*"x75,"\n";

chomp @$_ foreach @a;
print Dumper(@a);
print "*"x75,"\n";

print scalar @a, " elements [references] in \@a\n";
print "*"x75,"\n";

my @new1 = @{$a[0]};
my @new2 = @{$a[1]};
print Dumper($a[0]);
 print "\@new1 => @new1\n";
print "\@new2 => @new2\n";
print "*"x75,"\n";

foreach (@a) {
    print "@$_\n";
}
[download]