my @world = ();
my %map = ();
my $realm;
my $prefix="root_pool/hanoi/";
my $dest="root_pool/home/svn/lxr-root/lxr-data/world-all.0/world/projects/";
while ($realm = <>) {
 $realm =~ s/\s+$//;
 my $index = push @world, $realm;
 $map{$realm} = $index;
}
foreach $realm (reverse @world) {
 print "zfs rename $realm $prefix".$map{$realm}."\n";
}
foreach $realm (@world) {
 print "zfs rename $prefix".$map{$realm}." $realm\n";
}