for my $i(@asnValues) { my @asnParams = split(/ /,$i); my $asnHash = "asn$asnParams[0]"; } #### $$asnHash{risk} = $queueNsp[2]; #### my $asn = "asn$asnParams[0]"; my $asnHash = \%{$asn};