view release on metacpan or  search on metacpan

benchmark.pl  view on Meta::CPAN

#print scalar @a;
#exit;

sub ina {
    my $value = shift;
    #my $ar = shift;

    return scalar grep {$value eq $_} @_;
}

sub ina2($\@) {
    my $value = shift;
    my $ar = shift;

    foreach my $v (@$ar) {
	return 1 if ($v eq $value);
    }
    return 0;
}