#!perl -w
use 5.010;
sub mylength(_) {
    length($_[0]);
};

for('a','aa','aaa') {
    say "length   :", length;
    say "mylength :", mylength;
    say "mylength :", mylength($_);
};