{
    my %familySecrets;
    BEGIN { 
        %familySecrets = ( 
            closet           => 'skeleton', 
            herbs_and_spices => 11,
            coke_recipe      => 'sugar, water, shoe polish',
        ); 
    }
  sub s1
  {
    # Read family secrets
  }

  sub s2
  {
    #write family secret
    #call s1
  }
}