Array Perl

#!/usr/bin/perl -w
use strict;
my @array1 = (1, 2, 3);
my @array2;
@array2 = (@array1, 4, 5, 6);
print "@array2\n";