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){
    print (split(/\s/,$projekt))[1]," - ", (split(/\s/,$projekt))[3],"\n";
  }
}