BEGIN {
   my %familySecrets = ( 
      ...
   ); 

   sub s1 {
      ...
   }

   sub s2 {
      ...
    }
}