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

my @array = \(1 .. 3, 5 ..9);
my @array2 = \(1,2,3,5,6,7,8,9);
my @array3 = (\(1 ..3),\(5,6,7,8,9));

print Dumper \@array,\@array2,\@array3

__OUTPUT__
$VAR1 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR2 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];
$VAR3 = [
          \1,
          \2,
          \3,
          \5,
          \6,
          \7,
          \8,
          \9
        ];