my $flubber = do {
    my @args;
    push @args, $i++;
    push @args, ++$i;
    foo(@args)
  }; # well defined: $_[1] == $_[0]+2