use strict;
use warnings;

  my %row = (
             firma 		=> $firma,
             strasse  => $strasse,
             plz 		  => $plz,
             ort 		  => $ort,
             contact_loop => \@{&fetch_contact($eid)}
            );