use strict;
use warnings;

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

whatever (\@list, $value);

sub whatever
{
my @localList = @{$_[0]}; #Deref first (reference) param
my $localValue = $_[1];

print join ", ", @localList;
print " - $localValue";
}