my ($pat) =
    map qr/$_/,
    join '|',
    map quotemeta,
    sort { length($b) <=> length($a) }
    keys %value_lkup;

my @data = map $value_lkup{$_}, /$pat/g;