foreach my $net(@netLst){ //For debug foreach my $key_net (keys %{$moduleRef->{modRef}{$moduleName}{ioRef}}) { print "IN: moduleName = $moduleName; net = $key_net; indx = $moduleRef->{modRef}{$moduleName}{ioRef}{$key_net}{indx}\n"; } if($net =~ /\'/) {next;} elsif(defined ($moduleRef->{modRef}{$moduleName}{ioRef}{$net})) { print "$net is part of hash "; } //For debug foreach my $key_net (keys %{$moduleRef->{modRef}{$moduleName}{ioRef}}) { print "OUT: moduleName = $moduleName; net = $key_net; indx = $moduleRef->{modRef}{$moduleName}{ioRef}{$key_net}{indx}\n"; } }