for (my $x = 0; $x < 10; ++$x) {
  # stuff
  my $y = $x;
  # more stuff
}