my @sorted =
   map  { $_->[1] }
   sort { $a->[0] cmp $b->[0] }
   map  { [join('.',reverse split(/\./)),$_] } @unsorted;