@mapped = map { [$_, sprintf("%03.f%03.f%03.f%03.f", split(/\./, $_))] } @unsorted;
@sorted = sort { $a->[1] cmp $b->[1] } @mapped;
@sorted = map { $_->[0] } @sorted;