Will push help?

use strict;
use warnings;
use Data::Dumper;

my $aref1 = [(5..8)];
my $aref2 = [(1..3)];
push @{ $aref1 }, @{ $aref2 };
print Dumper($aref1);

__END__
$VAR1 = [
          5,
          6,
          7,
          8,
          1,
          2,
          3
        ];
[download]