&DATEISCHREIBEN(@Druckernamen, @IPAdressen);

sub DATEISCHREIBEN {
	open(Printer,">PrinterListe.txt") || die "Kann Datei nicht zum Schreiben oeffnen: $!\n";
   	my $anzahlelemente = @Druckernamen;
        for (my $z =0;$z<$anzahlelemente;$z++) {	
    	     printf Printer "Druckername:%s;IPAdresse:%s\n", $Druckernamen[z] , $IPAdressen[z];           
        }
    close Printer;
}