#!/usr/bin/env perl

use strict;
use warnings;

my @in = qw/ü
ü
ä
Ä
ü
ä
ü
–/;

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

for my $entity (sort keys %freq) {
    printf "%-7s %3i\n", $entity, $freq{$entity};
}