Or, while we're giving alternatives:

print <<"REPORT"

    There are @{[ scalar @downhosts ]} hosts down
    There are @{[ scalar @uphosts   ]} hosts up

    The following hosts are alive:
        @{[ join "\n\t" => @uphosts ]}

    The following hosts are down:
        @{[ join "\n\t" => @downhosts ]}

REPORT
[download]

I like inline expansions, apparently perl6 is supposedly going to make that easier.