my $x = 40;

if ( $x ~~ [0..9] || $x ~~ [50..59] ) {
    print 0;
} elsif ( $x ~~ [10..19] || $x ~~ [60..69] ) {
 print 1;
} elsif ( $x ~~ [20..29] || $x ~~ [70..79] ) {
print 2;
} elsif ( $x ~~ [30..39] || $x ~~ [80..89] ) {
print 3;
} elsif ( $x ~~ [40..49] || $x ~~ [90..99] ) {
print 4;
} 
##</code><code>##


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