my $noodle = join($/,
   map  { sprintf("%64s",$_->[1]) }
   sort { $a->[0] cmp $b->[0] }
   map  { [join('.',reverse split(/\./)),$_] } keys %hash
   );