#!/usr/bin/perl     
    
  @a=(9,2,3,4);   
  @b=("a","b");   
    
  func(\@a,\@b);   
    
  sub   func   {   
  ($c,$d) = @_;
  print   $#{@$c}+1,$#{@$d}+1;   
  }  

##</code><code>##

C:\pl>perl array_argument_testing.pl
00

##</code><code>##

$ perl array_argument_testing.pl
42