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