# DB - Connect
my $hDB = DBI->connect( "dbi:Oracle:dbname", "dbusername", "dbuserpass
+wort", { AutoCommit => 0 } );
my $hStatement = $hDB->prepare("MY SQL HERE");            
$hStatement->execute(  );
while ( ( $var1, $var2, $var3) = $hStatement->fetchrow_array ){
    push( @aRows, ( $var1, $var2, $var3 ) );
}
$hStatement->finish;
$hDB->disconnect;

print Dumper( @aRows );
[download]

output

$VAR1 = '11000530'; $VAR2 = '8041094A'; $VAR3 = 'Eingelesen'; $VAR4 = 
+'09-JUL-15'; $VAR5 = '528';
[download]

Imo this shouldn't be interesting at all. The question is, how to access resultset when using joings on TT ...