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