while (get_tuple($key,$value)) {
    $hash{$key} .= $value;
}