@dead = grep { ! defined( $keep{$_} ) &&
		( -d $file ? rmdir : unlink ) && $_ } @files;