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

}