danger is correct - i just wanted to add that you can usually get safer results by using your own hash instead of the package's:

use strict;

my %var = (
   A => 'YES',
);

print $var{A}, "\n";
[download]

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)