for my $file (qw(files.txt data.txt)) {
    unlink $file if -f $file;
    die "Unable to unlink '$file': $!" if -e $file;
}

##</code><code>##

for my $file (qw(files.txt data.txt)) {
    unlink $file if -f $file;
    die "Unable to unlink '$file': $!" if -f $file;
}

##</code><code>##

for my $file (qw(files.txt data.txt)) {
    if ( -f $file) {
       unlink $file or warn "Unable to unlink '$file': $!";
    }
}