for (@$list) {
    if (ref) {
        ...
    } else {
        $_ = ...;
    }
}