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"; }