my $file = "test_html";
my @file_lkp = ("file1", "file2");

@file_lkp = grep {$_ ne $file} @file_lkp;