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);