@preset = qw(tom snare metal analog);
@card1  = qw(mellowstr brightstr string3);
@ram    = qw(acoustic rock bass jazz strato distorted);

##</code><code>##

%hash=(preset=>\@preset, card=>\@card1, intram=>\@ram);