in reply to How do I restrict a variable to a range of values?

Here's another way: Tie::Scalar::Sticky

tie my $sticky, 'Tie::Scalar::Sticky' => qw/ a b /;

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)