sub print_stats 
  {
  	 my($table) = @_;

 my $sth = $dbh->prepare('SELECT * FROM '.$table)
                or die "Couldn't prepare statement: " . $dbh->errstr;
 $sth->execute             # Execute the query
            or die "Couldn't execute statement: " . $sth->errstr;

my $names = $sth->{NAME}; # or NAME_lc or NAME_uc
while( my $report_row = $sth->fetchrow_arrayref() ) {
    for my $col_idx ( 0 .. $#{$names} ) {
        print "$names->[$col_idx]: $report_row->[$col_idx]\n";
    }
}

}