foreach my $filename (keys %allFiles) 
{ 
    if ($allFiles{$filename} == LOESCHEN && -f $filename)     
    { 	
        $allFiles{$filename} = copy($filename, $backup);
	unlink($filename); 
    }
}