#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash = ('Abend' => 'NN',
            'Sonne' => 'NN',
            'Haus' => 'NN',
            'Abendsonne' => 'who knows',
);


my %klein= map {(lc $_ => $_)} keys %hash;


my @woerter=keys %klein;

for my $pre ( @woerter ) {
        for my $post ( @woerter ) {
                my $kompo = $pre.$post;
                if ( $klein{$kompo} ) {
                        print "$kompo \t $klein{$kompo} \t $hash{$klein{$kompo}} \n";
                }

        }
}