PERL DBI Datenbankfunktion aufrufen

[Slaughter]

Hallo,

ich möchte mit Perl eine Datenbankfunktion über ein Select-Statement mit einigen Parametern aufrufen.

Das Statement sieht per SQL z.B. so aus:
select test_function('Parameter1','Parameter2','Parameter3');

Als Rückgabe bekomme eine Tabelle mit mehrere Spalten, z.B.:
spalte1 spalte2 spalte3 spalte4
wert0_1 wert0_2 wert0_3 wert0_4
wert1_1 wert1_2 wert1_3 wert1_4
wert2_1 wert2_2 wert2_3 wert2_4
....
wertn_1 wertn_2 wertn_3 wertn_4

Aktuell habe ich noch keinen Zugriff auf die Datenbankfunktion und kann somit nicht testen. Aber kann ich die Datenbankfunktion mit Perl DBI aufrufen und über fetchrow_hashref die einzelnen Zellen einer Spalte ausgeben? z.B.:

$sth=$dbh->prepare(select test_function(?,?,?));
$sth->execute('Parameter1','Parameter2','Parameter3');
while ( my $ref = $sth->fetchrow_hashref ){
   print $ref->{spalte1} ."\n";
}

Vielen Dank im Voraus

Slaughter