$count = 2;
foreach (0..2) {} continue {print $_,"\n" if $count--}