note
sauoq
<code>
#!/usr/bin/perl
my $x = 40;
my $tier;
sub get_tier {
my $x = shift;
my $t = 0;
$t += ($x > $_) for (@_);
return $t;
}
$tier = get_tier($x, 9,19,29,39) if ($x >= 0 and $x < 50);
$tier = get_tier($x, 59,69,79,89) if ($x >= 50 and $x < 100);
print $tier, $/;
</code>
<div class="pmsig"><div class="pmsig-182681">
<tt>
-sauoq<br />
"My two cents aren't worth a dime.";<br />
</tt>
</div></div>
976708
976708