my $output; while (