Select Code to Download

$number = [1,2,3]; 
@number = (4,5,6); 
print "$number @$number @number";

ARRAY(0x814cc20) 1 2 3 4 5 6

my $comma_sep_number = join(",",@$number);
print "My Array Contains: $comma_sep_number";

My Array Contains: 1,2,3