Select Code to Download

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

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