use strict;
use warnings;

open (IN1, "<design_modify1.vhd") or die;
open (IN2, "<nets.txt") or die;
my @nets = <IN2>;
while (<IN1>) {
	foreach my $i (0..$#nets){
		print "matched" if m/$nets[$i]/;
		}		
}

##</code><code>##

use strict;
use warnings;

open (IN1, "<design_modify1.vhd") or die;
open (IN2, "<nets.txt") or die;
my @nets = <IN2>;
while (<IN1>) {
	foreach my $i (0..$#nets){
		my $var1= $nets[$i];
		print "matched" if m/$var1/;
		}		
}

##</code><code>##

design_modify1.vhd has following lines of codes 

enable_pad : INBUF port map (PAD => enable, Y => enable_c);

    c_pad : INBUF port map(PAD => c, Y => c_c);
    
    b_pad : INBUF port map(PAD => b, Y => b_c);
    
    sum_pad : OUTBUF port map(D => sum_c, PAD => sum);
    
    VCC_i_0 : VCC port map(Y => VCC_0);
    
    VCC_i : VCC port map(Y => \VCC\);
    
    sum_1_SUM0_0 : XOR3 port map(A => b_c, B => a_c, C => c_c, Y => sum_c);
    
    carry_pad : OUTBUF port map(D => N_5, PAD => carry);
    
    a_pad : INBUF port map(PAD => a, Y => a_c);
    
    GND_i_0 : GND port map(Y => GND_0);
    
    GND_i : GND port map(Y => \GND\);
    
    sum_1_CO0_i : MAJ3 port map(A => a_c, B => c_c, C => b_c, Y => N_5);

##</code><code>##

nets.txt file has following codes...

a_c
b_c
c_c