Smartmatch

use feature 'say'; 
use experimental 'smartmatch';
use Carp;

my $get_value_q121 = 1;
my $get_value_q122 = 2;

                               # Cherche si $get_value_q122 est égal à 2 ou à "gérard"
if ( $get_value_q121 == 1 && ( $get_value_q122 ~~ [ 2, "gérard" ] )) {
  say "smartmatch - ok trouvé";
}

if ( $get_value_q121 == 1 && ( not $get_value_q122 ~~ [ 1, 2 ] )) {
  # On ne passe pas par là 
  carp "I crashed";
}

                               # Signifie "$get_value_q122 n'est ni égal à 3, ni égal à 4"
if ( $get_value_q121 == 1 && ( not $get_value_q122 ~~ [ 3, 4 ] )) {
    carp "La valeur n'a pas été trouvée";
}