my %test_subscriptions = (
    case_001 => # etc...
);

##</code><code>##

my %hash = (  'key1', 'value1', 'key2', 'value2' );
# or...
my %hash = ( key1 => 'value1' => key2 => 'value2' );

##</code><code>##

my %test_subscriptions = (
      'case_001', 'fname' ,
      "$lname", 'lname',
      "$fname", 'zip',
      '02486', 'email',
      'test-' . $email . '\@mydomain.com', 'lists',
      ['news','updates'],   # whoops, there's just a 'key' here of
                            # an arrayref! - no associated value!
    );

##</code><code>##

$ perl -MO=Deparse hesco.pl
my(%test_subscriptions) = ('case_001', ('fname', "$lname", 'lname',
  "$fname", 'zip', '02486', 'email', 'test-' . $email . '\\@mydomain.com',
  'lists', ['news', 'updates']));

##</code><code>##

my @test_subscriptions = (
      'case_001' => (
        'fname' => "$lname",
        'lname' => "$fname",
        'zip' => '02486',
        'email' => 'test-' . $email . '\@mydomain.com',
        'lists' => ['news','updates'],
      ),
    );

print join( "\n", @test_subscriptions ), "\n";

#OUTPUT:

$ perl hesco.pl
case_001
fname

lname

zip
02486
email
test-\@mydomain.com
lists
ARRAY(0x1801180)

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)