#!/usr/bin/env perl

use strict;
use warnings;
use English;
use feature qw(say);
sub any (&@);

my $item  = 'ABA';
my @items = qw(ABA SCO ACC PHC GHF);

if ( any { $ARG eq $item } @items ) {
    say q(Cool!);
}
else {
    say q(Crap!);
}

sub any (&@) {
    my $f = shift;
    foreach (@_) {
        return 1 if $f->();
    }
    return 0;
}

__END__