Pass array and scalar to a Perl subroutine [duplicate]

You need to pass it in as a reference:

calc(\@array, $scalar)

And then access it as: my @array = @{$_[0]};