my $distlist = join ' ', map { "$_\@myorg.mydomain" } split /,/, $ARGV[1];