#全行対象の定石てんなら、
#my $found = grep { $_ == $value } @array ;
かぶった

5.10以降なら
my $found = $value ~~ @array ;

お遊び
my $found = sub { for ( @array ){ return 1 if $_ == $value } }->() ;