my %neu = (b=>2,c=>3);
while (my ($k,$v) = each %neu) {$hash{$k} = $v}