my @keys_output = keys(%output);
my $temp = @keys_output;
print "$temp in output\n";
foreach my $data (@keys_output) {print $data.",".$output{$data}."\n";}
#prints 2327 lines.