DB<2> use List::Util 'max'

  DB<3> p max( 1 , 4 )
4
  DB<4> @p = ( 1 .. 5 )

  DB<5> @q = ( 1 .. 11 )

  DB<6> p $#p , $#q
410
  DB<7> p max( $#p , $#q )
10
  DB<8> p max( 0+$#p , $#q )
10