Select Code to Download

use strict;
use warnings;
...
    'List::Util::any'  => sub { return 1 if List::Util::any { exists $
+hash{$_} } @list },
    'core any' => sub { return 1 if any { exists $hash{$_} } @list },
});

                  Rate            grep List::Util::any        core any
grep            14.1/s              --            -98%            -99%
List::Util::any  634/s           4412%              --            -46%
core any        1168/s           8209%             84%              --