Select Code to Download

sub query_databases {
....
 return \%dbs;
}

my $dbsref = query_databases ();

my $result = do_compare( $dbsref );

sub do_compare {
  my $dbsref = shift;
...
    }
  }
 }