while (defined ( my $zeichen = getc($handle1) ) )