my $str1="a,b,c"; my $str2="1,2,3"; @h{eval$str1}=eval$str2