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;
			}
		}
       }
}


##</code><code>##

"iftoportchop"
.portIfIndex.3.1 : INTEGER: 377

"portnameok"
.portName.3.1 : DISPLAY STRING- (ascii):  HX06S24E-CHASSIS1

##</code><code>##

377
: DISPLAY STRING- (ascii):  HX06S24E-CHASSIS1

##</code><code>##

$var =~ tr/\n/ /;