for(@files) {
    if( unlink ) {
        push @deleted, $_;
    } else {
        warn "$_ doesn't want to die: $!"
    }
}