$sql = "SELECT * FROM Tabelle";
    $sth = $dbh->prepare( $sql ) or die $dbh->errstr;
    $sth->execute();

    $erg=$sth->fetchrow_hashref;


    while (($element,)=each(%$erg))
    {
		print "$element\n";
    }

mysql> select * from faq;
+----+-------+----------------------------------------+-------------------------------------------------------------+-------------------+----------------+
| id | title | question                               | answer                                                      | show_themenordner | feeds_ratgeber |
+----+-------+----------------------------------------+-------------------------------------------------------------+-------------------+----------------+
|  1 |       | Welche Frameworks gibt es?             | CGI::Application, Catalyst, Jiffty                          |                 1 |              0 |
|  2 |       | Wie verbindet man sich zu Datenbanken? | Mit dem DBI Modul!                                          |                 1 |              0 |
|  3 |       | Welche Sigils gibt es?                 | Für Skalare ein $. Für Arrays ein @ und für Hashes ein %    |                 1 |              0 |
+----+-------+----------------------------------------+-------------------------------------------------------------+-------------------+----------------+
3 rows in set (0.00 sec)

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $db_user    = 'root';
my $db_passwd  = '';
my $db_options = { RaiseError => 1, AutoCommit => 1 };

my $dbh = DBI->connect('dbi:mysql:database=faq', $db_user, $db_passwd, $db_options)
    or  die DBI::errstr;

my $sth = $dbh->prepare( 'SELECT * FROM faq' );
$sth->execute();

my $num_of_fields = $sth->{NUM_OF_FIELDS} - 1;
my $names         = $sth->{NAME};

while ( my $row = $sth->fetchrow_arrayref ) {
    for my $i ( 0 .. $num_of_fields ) {
        print $names->[$i], ' => ', $row->[$i], "\n";
    }
    print "\n";
}

$dbh->disconnect;

sidburn@sid:~/perl$ ./dbi_name.pl
id => 1
title =>
question => Welche Frameworks gibt es?
answer => CGI::Application, Catalyst, Jiffty
show_themenordner => 1
feeds_ratgeber => 0

id => 2
title =>
question => Wie verbindet man sich zu Datenbanken?
answer => Mit dem DBI Modul!
show_themenordner => 1
feeds_ratgeber => 0

id => 3
title =>
question => Welche Sigils gibt es?
answer => Für Skalare ein $. Für Arrays ein @ und für Hashes ein %
show_themenordner => 1
feeds_ratgeber => 0