while( my $dataHRef = $sth->fetchrow_hashref() ) {
  foreach my $fieldname (sort keys %$dataHRef) {
    print "$fieldname => '$dataHRef->{$fieldname}'\n";
  } # foreach
} # while