sub mylength(_) {
    length($_[0]);
};