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