Select Code to Download

 my $x = 40;

if ( $x ~~ [0..9] || $x ~~ [50..59] ) {
...
} elsif ( $x ~~ [40..49] || $x ~~ [90..99] ) {
print 4;
}

my %tiers = (
...
10..19 => 1,
);