for $key ( sort {$a<=>$b} keys %hash) {
           print "($key)->($hash{$key})\n";
}

##</code><code>##

foreach (sort { $a <=> $b } keys(%SRV) )
{
    print"$_: "."$SRV{$_}";
}