my @x=qw/ X Y Z /;
say "lc: out=", pp( lc @x,"B" );
print "mylc: "; say " out=", pp( mylc @x,"B" );
print "mylc2: "; say " out=", pp( mylc2 @x,"B" );
# lc: out=(3, "B")
# mylc: in=3 out=(3, "B")
# mylc2: in=("X", "Y", "Z", "B") out="x"