sub count_unique {
 # extract unique elements of array and count occurrences
 my @array = @_;

 map { $count{$_}++ } @array;
 map { "$_ = ${count{$_}}\n"} sort keys(%count);

 return %count;
}