Select Code to Download

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

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

my %test_subscriptions = (
      'case_001', 'fname' ,
...
      ['news','updates'],   # whoops, there's just a 'key' here of
                            # an arrayref! - no associated value!
    );

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

my @test_subscriptions = (
      'case_001' => (
...
test-\@mydomain.com
lists
ARRAY(0x1801180)

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