Passing variables to subroutines

[Dave Watkins]

Hi All

I am trying to pass a variable, a hash table and an array into a subroutine 
like so

subroutine($variable, %hash, @array);

and pick it up like so

sub subroutine {
        my($variable, %hash, @array) = @_;

but it seems the array isn't being passed, I can print the contents of the 
array before the sub is called but if I try to print it from within the sub 
I get nothing. The other 2 are being passed fine. If it makes any 
difference the sub is in another file, but "require" is being used.

Thanks