local *sortby = setsort($_);
        for my $rec ( sort sortby @{$dns_records{$_}} ) {