Select Code to Download

my $lines;
{
    local $/ = undef;
    $lines = <INPUT>;
}

@names = ("bill", "fred", "joe");
print "@names\n";
print @names, "\n";

bill fred joe
billfredjoe