use strict; use warnings; open (IN1, ">XOR_portmap_nets.txt") or die; my @uut_names = ; my @nets = ; my @enabled_nets = ; chomp @uut_names; chomp @nets; chomp @enabled_nets; while () { foreach my $i ( 0..$#nets ) { print OUT if ((s/m/$uut_names[$i]/) && (s/in1/$nets[$i]/) && ( +s/output/$enabled_nets[$i]/)); } } close (IN1); close (IN2); close (IN3); close (IN4); close (OUT);