use Socket qw( inet_aton inet_ntoa );

sub sort_sock
{
  map { inet_ntoa($_) }
  sort
  map { inet_aton($_) } @_
}