Looks fine to me. As le mentioned, you could shorten it by rearranging like this:

$c{$_}++ for @a;
[download]

But it's essentially the same thing.

--ZZamboni