4546
4748


##</code><code>##

IT
IT
IT
IT
IT
IT
IT


##</code><code>##

918
908


##</code><code>##

SR-IT-SD4546-IBV-sw918-A
SR-IT-SD4546-IBV-sw918-B
SR-IT-SD4748-IBV-sw918-A
SR-IT-SD4748-IBV-sw918-B


##</code><code>##

SR-IT-SD4546-IBV-sw908-A
SR-IT-SD4546-IBV-sw908-B
SR-IT-SD4748-IBV-sw908-A
SR-IT-SD4748-IBV-sw908-B


##</code><code>##

open(MYINPUTFILE, "File1");
open(MYINPUTFILE1, "File2");
open(MYINPUTFILE2, "File3");

open(HOST, ">host");
open(HOST1, ">host1");

while (<MYINPUTFILE>) {
	my($line) = $_;
	chomp($line);
	
	for ($numsw = $swnum; $numsw > 0 ; $numsw-- ){
	
		my $line1 = <MYINPUTFILE1>;
		chomp($line1);
		my $line2 = <MYINPUTFILE2>;
		chomp($line2);
	
		print HOST "SR-$line1-SD$line-IBV-sw$line2-A\n";
		print HOST1 "SR-$line1-SD$line-IBV-sw$line2-B\n";
		
		open (OUTHANDLE, ">>$line2"); 
		print OUTHANDLE "SR-$line1-SD$line-IBV-sw$line2-A\n";
		print OUTHANDLE "SR-$line1-SD$line-IBV-sw$line2-B\n";
		close (OUTHANDLE");
	}
	
}

close (MYINPUTFILE);
close (MYINPUTFILE1);
close (MYINPUTFILE2);
close (HOST);
close (HOST1);