sub get_company_list
  {
      my ($self) = @_;
      my @company_list = ();
      for my $search ("A".."Z") {
          push @company_list, @{$self->search_lastname($search)};
      }
      return \@company_list;
  }