sub remove_leadspace(
    s/^\s+// for @{ $_[0] };
    return;
}