sub vorhandene_Projekte {    
  my @vorh_projekte;
  my $PROJ_OJ_DEST="$PROJECT_ROOT_WIN\\$PL_AKTIV\\projekte.dat";
  open PL_PROJECTS, "<$PROJ_DEST" or die " Kann die Datei nicht oefnen:  $!";
  while (<PL_PROJECTS>) {    #Alle Projekte nach einander durchgehen
    push (@vorh_projekte, $_);
  }
  close PL_PROJECTS;
  foreach my $projekt(@vor_projekte){
    my ($erstesWort, $zweitesWort, @rest) = split(/\s/,$projekt);
    print "Erstes Wort der Zeile $projekt:\t",$erstesWort,"\n";
  }
}