my $noodle = join "$/", map { sprintf "%64s", $_ } ( sort { reverse($a) cmp reverse($b) } (keys %hosts) );