#!/usr/bin/perl
use strict; 
use warnings;

my $string = "Hello World";
# Leerzeichen aus $string entfernen  
my @gruss = split( / /, $string);
my %hash;

foreach my $word (@gruss){
        for (0 .. length($word)-1){
                # Buchstaben in Hash ablegen
                $hash{ substr($word, $_, 1) }++;
        }
}
# Ausgabe der Einzel-Ergebnisse
print map { "$_ => $hash{$_}\n" } sort keys %hash;
print "\n";

# %hash leeren
%hash = ();

# Buchstabenpaare
foreach my $word (@gruss){
        for (0 .. length($word)-1){
                my $erg = substr(uc($word), $_, 2);
                # beenden wenn keine Paarbildung mehr möglich ist
                last if( length($erg) < 2);
                #  Buchstabenpaare ablegen
                $hash{ $erg }++;
        }
}
# Ausgabe Buchstabenpaar - Ergebnisse
print map { "$_ => $hash{$_}\n" }sort  keys %hash;
print "\n";