my @need=sort qw|ABC GHI MNO|; 
my $flat=join "",@need; 
my $re="\\b" . join( "|",@need)."\\b";

if ($flat eq join( "", sort grep{m/$re/}@FILES)){
   say "Found!"
}