Help for this page

Select Code to Download

Select or download this

sub sort_domains
{
    map { ${$_->[0]} }
...
    }
    map { [ \$_, [ split /\./, $_ ] ]  } @_
}

Select or download this
my $noodle = join $/, map { sprintf "%64s", $_ } sort_domains keys %hosts;