while(@row = $sth->fetchrow)  {
   ($vprofilenumber,
    $vStatus,
    $vPricePlusProduct,
    $vKeywords,
    $vUsername) = @row;
   print ...
   ...
}