for (my $i=101; $i<=200; $i++) {
    $a = "\\" . $i;
    print "$i = $a \n";
  }