Select Code to Download

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

while( ($vprofilenumber,
        $vStatus,
        $vPricePlusProduct,
...
   print...
   ...
}