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"; }