@email = <>; my $message = join "\n", @email;