Perl subroutine array and scalar variable parameters

Question

How exactly can I pass both scalar variables and array variables to a subroutine in Perl?

 my $currVal = 1;
 my $currValTwo = 1;
 my @currArray = (\'one\',\'two\         


        

Answer 1

You need to fetch them as references because you've already passed them as references (by using the \ operator):

my($inVal, $inValTwo, $inArray, $inArrayTwo) = @_;

and then use the references as arrays:

@{$inArray}