print map@{$c{$_}},grep$#{$c{$_}}>0,%c;