Select Code to Download

#!perl -l
my %weights=(a=>1,b=>2,c=>3);
...
    $_->[0]<=$r and $r<$_->[1] and print $_->[-1]
        foreach @values;
}