kannst du mir bitte die einzelnen Zeilen etwas erklären??
ich bin immer noch am perl lernen ...

sub selecthashref{
my ($statement,@array) = @_;
unless(my $sth = $dbh->prepare( $statement)){
die $dbh->err().": ".$dbh->errstr();
}
$sth->execute() or die $dbh->errstr();
while(my $hashref = $sth->fetchrow_hashref()){
push(@array,$hashref);
}
return \@array;
}

#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";

foreach my $row_ref(@{selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC")}){
print "$row_ref->{ordnerid}\n";
}