sub f {say "@_"}
    my $n = 1;
    f $n += 2, $n += 2;
    __END__
    5 5