#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my $filtered = {
    FOO  => 1,
    BAR  => 1,
    FOOL => 1
};

my $string = 'FOO';
for (grep /\b\Q$string\E\b/, keys %$filtered) { say $_; }