my @input_array = (N1,N2,N3,N6,N7); #not fixed (user input) for(my $i=0; $i < @input_array; $i++) { my %hash = ( $input_array[$i] => { CC0 => 1, CC1 => 1}, ); print "CC0[", $input_array[$i], "] : "; print $hash{$input_array[$i]}{CC0}, "\n"; print "CC1[", $input_array[$i], "] : "; print $hash{$input_array[$i]}{CC1}, "\n\n"; } #### CC0[n1] : 1 CC1[n1] : 1 CC0[n2] : 1 CC1[n2] : 1 CC0[n3] : 1 CC1[n3] : 1 CC0[n6] : 1 CC1[n6] : 1 CC0[n7] : 1 CC1[n7] : 1