DB-Connect med Perl (DBI)

Hi, jeg har et perlscript, som connecter med en DB.
jeg bruger DBI
...
my $sql = "SELECT * FROM TestTable";
if (my $doSQL=$dbi->prepare($sql))
{
    while (%dbValues=$doSQL->fetchrow_array)
    {
        foreach $attr (keys %dbValues)
        {
            $value = $dbValues{$attr};
            print "$attr -> $value\n";
        }
        print "-------------------------\n";
    }
}
...
mit problem er, den viser både foran "->" en Value og efter "->".
hvordan kan jeg få det til at virke, at $attr viser table-overskrifterne?

med venlig hilsen
KernelX