$hash{"Keyword"} = "Symbol_1\0Symbol_2\0Symbol_3"; my $key = "Keyword"; for my $symbol (split /\0/, $hash{$key}, -1) { my $weight = $hash{"$key\0$symbol"}; # ... }