Select Code to Download

my %file1_hosts = (
   bobssite => {
...
      'bobssite.dealer.net'    => 1,
   },
);

sub compare_aliases {
   my ($host, $file1_aliases, $file2_aliases) = @_
...
}

compare_hosts(\%file1_hosts, \%file2_hosts);