Perl treats everything passed as scalar, so as the good brothers before me agree use a reference

    $array = \@array;

    pass_this($anythingelse,$array); 

    sub pass_this(){
      my($firstpassedthing,$array_ref) = (@_);

      @local_array = @{$array_ref}; 
      # now you can play with $local_array[] 
    }
[download]

The sadder but wiser Perl for me ...

Edit: chipmunk 2001-03-30