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.
Frying pan on the stove
Results (323 votes). Check out past polls.