use List::Util qw( min );
my @A;

for $_ (1..5)
{
  push @A, $_;
  $max = min($#A, 0);
  $t = ref $#A;
  print "$max = min($#A,0)\n";
}