for my $rr (@mx)
{
   print $rr->preference, " ", $rr->exchange,"\n";
}