[romatr]

Я уже сам порешил:

while (my $vp = $sth->fetchrow_hashref()){
    foreach  my $key (keys %$vp){
        print $$vp{$key};
    }
}