$\="\n";
while (my $x= < 1 2 3 4 >) {     # using glob as iterator
  next if $x%2;
  print "$x: chacha" 
} continue {
  print "$x: rumba"
}
print $x;

##</code><code>##

1: rumba
2: chacha
2: rumba
3: rumba
4: chacha
4: rumba
Use of uninitialized value $x in print at /home/lanx/tmp/continue.pl line 8.