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