my $word = 'committee';
my @list = qw( t r e e );

@list = grep $word !~ s/\Q$_//, @list;

print "W=$word, L=(@list)\n";