Select Code to Download

sub sortBySite {
        my ($site_a) = keys %{$tmp{$a}{'priority'}};
        my ($site_b) = keys %{$tmp{$b}{'priority'}};
        return $site_a cmp $site_b;
}

  'hostX1-1-l.example.com' => {
    priority => 'IS-ABC',
...
    os => 'linux',
    pager => 'man-duty',
  }