#!/usr/bin/perl -w
use strict;
my $i = 100;
for ($i..$i+200) {
   my $host = "switch$ia";
   print "$host\n";
   $i++;
}