open OUT, 'file' or die $!;
print OUT join(',', sort { $a <=> $b } values %stats), "\n";
close OUT;