sub main { my (@A) = @_; }
The array has been input using the above code. I am unable to obtain the original array; when I simply print "@A