sub get_auftraege_inetbk
{
 my @array;
 my $i = 0;
 my $statement;
 my $sth;
 my $dbh;

 $dbh = DBI->connect(SQLCONNECT,SQLUSER,SQLPASS) or die ("Database connection not made: $DBI::errstr", "ERROR");
 $dbh->{RaiseError } = 1;
 $dbh->{LongTruncOk} = 1;
 $dbh->{LongReadLen} = 500000;

 $sth = $dbh->prepare("SELECT A_ID, BETREFF, TO_CHAR(EDATUM, 'DD.MM.YY HH24:MI'), EMAILADRESSE [..]") or die ("[..]");
 $sth->execute() or die ("[..]");
 while(my @tmp = $sth->fetchrow_array)
 {
  $array[$i][0] = $tmp[0];
  $array[$i][1] = $tmp[1];
  $array[$i][1] = $tmp[2];
  $array[$i][2] = $tmp[3];
  $i++;
 }
 $sth->finish();
 $dbh->disconnect();
 return @array;
}

@aa_inet_bk = get_auftraege_inetbk();
foreach my $bla (@aa_inet_bk)
{
 $mail = $aa_inet_bk[$i][3];
 # Weiterverarbeiten des Codes
}