#!/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";