This does not relate to your question, but you can make your code more Perlish (and fun!) by grabbing the @row values as a group rather than one-at-a-time:

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

(Season with spaces and linebreaks to taste.)

If that is comfortable, you can go a step further and eliminate the intermediate @row array entirely:

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