$result{$array[$num%@array]}++ while ($num--);