my @sorted = map sprintf('%vd', $_), sort map join('', map chr, split /\./), @data;