- my $next_before = sub { $next_something->(\@xs, \$x, 'before'); };
- my $next_after = sub { $next_something->(\@ys , \$y, 'after' ); };
+ my $next_x = sub { $next_something->(\@xs, \$x, 'before'); };
+ my $next_y = sub { $next_something->(\@ys, \$y, 'after' ); };