my %freq;
$freq{$_}++ for @items;

foreach (sort { $freq{$b} <=> $freq{$a} } keys %freq) {
  print "$_ : $freq{$_}\n";
}