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