in reply to
Perl Number range lookup question
my $x = 40;
print int( ( $x % 50 ) / 10 );
This exactly was the first thing I wrote, but I decided I'd not do it that way because "tiers" are usually things that get changed sooner or later and I thought the OP code might just be a contrived example.
Results (290 votes),