print $a if ++$a for qw/x y w h/;

##</code><code>##

do { print $a if ++$a } for qw/x y w h/;