SR-IT-SD4546-IBV-sw947-A
SR-IT-SD4546-IBV-sw908-A
SR-IT-SD4748-IBV-sw-A
SR-IT-SD4748-IBV-sw-A

##</code><code>##

SR-IT-SD4546-IBV-sw947-B
SR-IT-SD4546-IBV-sw908-B
SR-IT-SD4748-IBV-sw-B
SR-IT-SD4748-IBV-sw-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);
		seek (partner,0,1);
		seek (switchid,0,1);
		
	}
	
}

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