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