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