sub importdaten {
	  $class = shift;
	
	  ...
  	
  for(@daten) {
	    	$line = $_;
	    	my @tokens = quotewords (";", 0, $line);
		
		     $in3{firma} = @tokens[0]." ".@tokens[4]." ".@tokens[5]." ".@tokens[6]." ".@tokens[7]." ".@tokens[8];
		     $in3{strasse} = @tokens[1];
		     $in3{plz} = @tokens[2];
		     $in3{ort} = @tokens[3];
		     $in3{ansprechpartner} = @tokens[9]." ".@tokens[10]." ".@tokens[11]." ".@tokens[12];
		     $in3{position} = @tokens[13];
		     $in3{tel} = @tokens[14];
		     $in3{fax} = @tokens[15];
		     $in3{branche} = @tokens[16];
		
		     $in3{gruendung} = @tokens[20];
		
		     $class->neu(%in3);
	  }
}

sub neu { 	
 	  $class = shift;
 	  %neu = shift;
 	
 	  print "Content-type: text/html\n";
 	  print $neu{firma};
}