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