for my $rec ( sort { $sortby->() } @{$dns_records{$_}} ) {

##</code><code>##

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

##</code><code>##

Array found where operator expected at ./sample.pl line 5, at end of line
        (Missing operator before ?)