#!/afs/athena/contrib/perl/p

while(<>){
	push(@list, $_);
}

@slist = sort bydom @list;
for $i (@slist){
	print("$i");
}

sub bydom {
    ($mya, $ap) = split(':', $a);
    ($myb, $bp) = split(':', $b);
    @a = split('\.', $mya);
    @b = split('\.', $myb);
    $ra = join('.', reverse @a);
    $rb = join('.', reverse @b);
    if($ra eq $rb){
	$return = 0;
    }			# 
    elsif($ra gt $rb){
	$return 	= 1;
    }		
    elsif($ra lt $rb){
	$return 	= -1;
    }	
    $return;
}