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