print "OK\n" if ( &in_array( "b", ( "a", "b", "c" ) ) );

# *************************************

# Checks if a value exists in an array and

# return the searched expression.

sub in_array {

my ( $needle, @haystack ) = @_;

return grep{ $_ eq $needle } @haystack;

}