for (my $i = 1; $i <= 9; $i++) {
  s/\s/;/;
}

##</code><code>##

for (1..9) {
  s/\s/;/;
}

##</code><code>##

for my $i (1..9) {
  s/\s/;/;
}