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