>c:\progs\perl588\bin\perl -l 770193.pl
42

>c:\progs\perl589\bin\perl -l 770193.pl
42

>c:\progs\perl5100\bin\perl -l 770193.pl
00

##</code><code>##

#!/usr/bin/perl     

use strict;
use warnings;

my @a = (9, 2, 3, 4);   
my @b = ("a", "b");   
    
func(\@a, \@b);   
    
sub func {
   my ($c, $d) = @_;
   print $#{$c}+1, $#{$d}+1, "\n";
  #print $#$c+1,   $#$d+1,   "\n";   \
  #print 0+@{$c},  0+@{$d},  "\n";    > Alternatives
  #print 0+@$c,    0+@$d,    "\n";   /
}