foreach $key( sort {$ipaddr {$a} cmp $ipaddr {$b}} keys %ipaddr ) 
{
	print OUT "$ipaddr{$key}\t$keyn";
}