Array Perl

@a1 = (1, 2, 3);
@a2 = (4, 5, 6);
push (@a1, @a2);
print join (", ", @a1);