foreach $vard (sort (keys(%cnt))) {