sub x {
    $_++ for @_;
    @_[1,4] = (2,5);
    &z;
}