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

##</code><code>##

ARRAY(0x814cc20) 1 2 3 4 5 6

##</code><code>##

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

##</code><code>##

My Array Contains: 1,2,3