use feature 'say'; use Carp; my $get_value_q121 = 1; my $get_value_q122 = 2; if ( $get_value_q121 == 1 && grep { $_ == $get_value_q122 } qw( gérard 2 )) { say "grep - ok trouvé"; } if ( $get_value_q121 == 1 && not grep { $_ == $get_value_q122 } qw( gérard 2 )) { # On ne passe pas là carp "I crashed"; } if ( $get_value_q121 == 1 && not grep { $_ == $get_value_q122 } qw( gérard 5 )) { carp "La valeur n'a pas été trouvée"; }