sub do_stuff1 {
    local *_;
    $_ = shift;
    ...
}