my @verzeichnisse = grep{-f $bkupDirectory .'/'.$_}
readdir(DIR);