my $sth = $dbh->prepare( 'select * from foo' );
 $sth->execute;
 my $fieldnames = $sth->{NAME};
 while ( my $row = $sth->fetch ) {
   for ( 0 .. ( scalar @{ $fieldnames } - 1 ) ) {
	print "$fieldnames->[ $_ ] is $row->[ $_ ]\n";
   }
 }