use strict;
use warnings;
use Data::Dumper;

my @files2 = grep { $_ ne "file1" } grep { $_ ne "file2" } qw(file1 file2 file3);
print Dumper(\@files2);

__END__
$VAR1 = [
          'file3'
        ];