...
my $nx = shift;
my @a = @{shift()}; # This should resolve your problem
my $ny = shift;
...