$_ = 'Z';
say "lc: out=", pp( lc,"B" );
print "mylc: "; say " out=", pp( mylc,"B" );
print "mylc2: "; say " out=", pp( mylc2,"B" );
# lc: out=("z", "B")
# mylc: in="Z" out=("z", "B")
# Use of uninitialized value $_[0] in lc at example.pl line 12.
# mylc2: in=() out=("", "B")