my @addresses = split q{,}, $ARGV[1];

foreach my $address (@addresses) {
  $address .= q{@myorg.mydomain};
}
my $list = join q{ }, @addresses;