Select Code to Download

use feature qw( say );

...
say $x eq $y ? "equal" : "not equal";    # equal
say mylength($x);                        # 1
say mylength($y);                        # 2