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