$\="\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;