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

##</code><code>##

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

##</code><code>##

bill fred joe
billfredjoe