print join ',', map { "$_:$hash{$_}" } sort keys %hash;