my $result;

while ($result = <$chan>)
{
    ...
}

# use $result