$xWS->write($row,$col++,$_) for @$ar,$user_date;