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

##</code><code>##

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