{
  my %familySecrets;
  sub s1
  {
    # Read family secrets
  }

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