Perl procurando por string contida na matriz
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.