my @sorted = map { join '.', unpack 'N*', $_ }
             sort
             map { pack 'N*', split /\./ }
             @unsorted;