Array count

New Method:
@fruits = qw(apple orange banana mango apple);

$num_apple = grep /^(.*?)$/i, @fruits;

print $num_apple;