map { s/-(\d)\./-0\1./ } @strings;
my @sorted = sort @strings;