for (1..10000) {
  $z += $_;
  next if $_ % 2;
  $y += $_;
}
print "DOne; $z $y\n";