for ( my $x = 0; $x < $numFrom; $x++) {

	for (my $y = 0; $y < $leftCon-1; $y++) {

		if (@fromCon[$x] eq @leftCon[$y]) {

			my $fromConv = @fromCon[$x];
			$fromConv = $leftcounter."L";
			push @fromConv, $fromConv;	
		}
		if (@toCon[$x] eq @leftCon[$y]) {

			my $toConv = @toCon[$y];
			$toConv = $leftcounter."L";
			push @toConv, $toConv;	
		}
		$leftcounter++;

	}

	for (my $y = 0; $y < $rightConnectors-1; $y++) {


		if (@fromCon[$x] eq @rightCon[$y]) {

			my $fromConv = @fromCon[$x];
			$fromConv = $leftcounter."R";
			push @fromConv, $fromConv;	
		}
		if (@toCon[$x] eq @rightCon[$y]) {

			my $toConv = @toCon[$y];
			$toConv = $leftcounter."R";
			push @toConv, $toConv;	
		}
		$rightcounter++;
	}

}

print @fromConv;
print @toConv;