Eu tenho uma matriz com os seguintes valores:

push @fruitArray, "apple|0";
push @fruitArray, "apple|1";
push @fruitArray, "pear|0";
push @fruitArray, "pear|0";

Quero descobrir se a string "apple" existe nessa matriz (ignorando o "| 0" "| 1")

Estou usando:

$fruit = 'apple';
if( $fruit ~~ @fruitArray ){ print "I found apple"; }

O que não está funcionando.