my @a = (1,2,3);
my $b = 4;
my $aap = \(@a,$b);
print Dumper($aap);
my $aap = \($b,@a);
print Dumper($aap);
__OUTPUT__
$VAR1 = \4;
$VAR1 = [
          1,
          2,
          3
        ];