my $elem_count=grep /^$scalar$/,@array;