while (my $row = $output) {