use Data::Dumper;

sub test1 (\@@) { print Dumper \@_; }
sub test2       { print Dumper \@_; }

my @array = (1,2,3);
my $value = 4;

test1( @array, $value);
test2( @array, $value);

##</code><code>##

$VAR1 = [
          [
            1,
            2,
            3
          ],
          4
        ];
$VAR1 = [
          1,
          2,
          3,
          4
        ];