#!/usr/bin/env perl
# domainsort -- sort a list of DNS domains right-to-left

print for
	map { "$_\n" }
	map { $_->[0] }
	sort { $a->[1] cmp $b->[1] }
	map { [$_, join(".", reverse split(/\./, $_))] }
	map { s/[\r\n]//gr }
	<>;
