@email_konto1 = ( 'aaaa', 'aaaa' );
    @email_konto2 = ( 'bbb', 'bbbb' );
    @matrix = ( \@email_konto1, \@email_konto2 );
    $matrix = @matrix;


while (@data=$statement->fetchrow_array){
        $liste .= "<tr>";
        foreach(@data){
            $liste .= "<td align='left'>" . $_ . "</td>"; 
      }#foreach
    
 #########Imap-Teil Start######################
            my $server = Net::IMAP::Simple->new( 'aaa.aaa' );
          for ($i=0; $i <= $matrix-1; $i++){        
        $server->login( @{$matrix[$i]}[0], @     {$matrix[$i]}[1]);
        if (!$server){
            $liste .= "<td>Server-Verbindung
fehlgeschlagen</td>"; 
        $server->quit();
        } 
        else{ 
    $liste .= "<td>Verbindung mit @{$matrix[$i]}[0] geglückt!</td>";
        }
    my $nmessages = $server->select('INBOX');
    if (!$nmessages){
    $liste .= "<td>Verbindung zum INBOX Fehlgeschlagen</td>";
        }
           else{ 
    $liste .= "<td>Verbindung zum INBOX steht</td>"; 
        } 
    
    $liste .= "<td>Es sind $nmessages in dem  Postfach</td>";

        foreach my $msg (1 .. $nmessages ){
 ###damit der Code nicht solang wird, also in dieser Schleife ##wird Mime::Parser benutzt um die eMail zu parsen. ##anschliessend Speichern in Tabelle
        }#foreach
        
            }#for 
             $server->quit();
        if ($server){
        $liste .= "<td>Verbindung beendet</td>";} else{$liste .= "<td>Könnte Verbindung nicht beenden!</td>";}
######IMAP-Teil##########################

    $liste .="</tr>";
          }#while