Select Code to Download

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

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