while (<$channel>) {push @output, $_}
#becomes
push @output, $_ while <$channel>;
#although
my @output = <$channel>;
#is even better