open(INFILE, "iftoportchop");
	while(<INFILE>){
	@if2port = split /:/,$_;
	if ($if2port[0] =~ /([1-9]\.\d+)/){
		$numvar1 = $1;
			}
	open(INFILE2,"portnameok");
		LINE2:	while(<INFILE2>){
		@pnamok = split /:/,$_;
		if ($pnamok[0] =~ /([1-9]\.\d+)/){
		       $numvar2 = $1;
		next LINE2 if $numvar2 > $numvar1;
		if ($numvar1 eq $numvar2){
		open(OUTFILE4, ">> swapnum");
		s/$pnamok[0]/$if2port[2]/;
		print OUTFILE4;
			}
		}
       }
}