@array = qw (aa bb cc aa aa cc cc dd aa aa); #### aa - 5 bb - 1 cc - 3 dd - 1