Sorting IP addresses 

• Guttman Rosler Transform

use Socket;

my @sorted =
    map { inet_ntoa $_ }
    sort
    map { inet_aton $_ } @addr;