my $var1;
  my $dbhandle = DBI->connect($DB_TYPE, $STAT_DB_USER, $STAT_DB_PASS, {RaiseError => 0}) or die "Database connection not made: $DBI::errstr";
  my $sql = "SELECT * FROM parcel_out";
  my $sth = $dbhandle->prepare($sql);
  $sth->execute();
  foreach my $row ($sth->fetchrow_arrayref()){
        print ".HIER\n";
        $var1 = join("|",@row);
        print "$var1\n";
  }
       print ".FERTIG\n";
  $dbhandle->disconnect();

  while($row = $sth->fetchrow_arrayref) {
    # this is a fast and simple way to deal with nulls:
    foreach (@$row) { $_ = '' unless defined }
    print "@$row\n";
  }

  foreach my $row ($sth->fetchrow_arrayref()){
       print ".HIER\n";
       $var1 = join("|",@row);
       print "$var1\n";
 }

  foreach my $row ($sth->fetchrow_arrayref()){

       $var1 = join("|",@row);