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};
}