our %PhoneBook = &ReadPhoneBookFile();

sub ReadPhoneBookFile {
   my %TempBook;
   ... some stuff ...
   return %TempBook;
}