You're not passing your function a reference to an array, but a typeglob. Under Perl 4 and earlier this was the only was to simulate passing by reference, but with Perl 5 you can take a reference to an array using \@array. Of course, you may need to change what's inside your function too.

As for why my doesn't work - my creates a lexical variable which doesn't live in a typeglob, therefore you're not passing the 'right' @array variable into your function. You're passing the package variable @main::array.

Liberal use of -w and use strict would have pointed out some of these problems to you.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>