#!/usr/bin/perl -- use strict; use warnings; my @nets = qw/ a b c d /; # my $ioRef = $moduleRef->{modRef}{$moduleName}{ioRef}; my $ioRef = { qw/ q q c c d /, undef }; ## Data::Dump::dd( $ioRef ) for my $net ( @nets ){ print "checking $net\n"; if( defined $ioRef->{$net} ){ print "defined $net $ioRef->{$net} \n"; } } __END__ checking a checking b checking c defined c c checking d