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

##</code><code>##

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

##</code><code>##

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