while (my($key, $value) = each %source) { $target{$key} = $value }