Select Code to Download

use 5.010;

...
    when ([30..39, 80..89])   { say 3 }
    when ([40..49, 90..99])   { say 4 }
}

use 5.014;

...
    say 3 when [30..39, 80..89];
    say 4 when [40..49, 90..99];
}

use 5.010;

...
say 2 if $x ~~ [20..29, 70..79];
say 3 if $x ~~ [30..39, 80..89];
say 4 if $x ~~ [40..49, 90..99];

use Smart::Dispatch;

...
};

say $tiers->($x);

my $x = 40;

...
);

print $tiers{$x} . "\n";

use 5.010;

...

$modified_say->(40);
$modified_say->(39);

use Smart::Dispatch;

...

$modified_say->(40);
$modified_say->(39);