Old school smartmatch

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";
}