#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;

my @x = ( 1 .. 2 );
my @y = ( 3 .. 4 );

dd \@x;
dd \@y;

my @result =  map { $_ } ( @x, @y );

dd \@result;

dd \@x;
dd \@y;

__END__

karls-mac-mini:monks karl$ ./1nickt.pl
[1, 2]
[3, 4]
[1 .. 4]
[1, 2]
[3, 4]