my %h = map { $_ => 1 } @inhlattxt;
@files = grep { ! exists $h{$_} } @files;