# DB - Connect
my $hDB = DBI->connect( "dbi:Oracle:dbname", "dbusername", "dbuserpasswort", { 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 );

##</code><code>##

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