my %hash = ();
for my $no ( 0..$#array2 )
{
      if ( $array2[$no] ) { $hash{ $array2[$no] }++; }
}

##</code><code>##

foreach my $key ( sort keys %hash )
{    print "$key:$hash{$key}\n"; }