sub scribble {
    for (@_) {
        ...
    };
    @_ = ();
};

##</code><code>##

sub scribble {
    while ($_ = shift) {
        ...
    };
};