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