foreach my $x (0..9) {
  ...
}