print "$_," . (join ',', @{$usage{$_}}) . "\n" for (keys %usage);