for my $rec ( sort { if ($_ eq "PTR") { $a <=> $b} ; else { $a cmp $b } } @{$dns_records{$_}} ) {
# etc
}