while( my($val, $sep) = splice @data, 0, 2 )
{
    $sep = "" unless $sep;
    $output .= "<keyword>$val</keyword>$sep";
}