You could use this:

#!/usr/bin/perl -w
use strict;
my @arr = qw( file1 file2 file3 filename );
print "ha!\n" unless grep /^filename$/, @arr;
[download]

See also the '-e' operator -- you don't have to list a directory to check if a file exists.

-mk