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

my @data = <DATA>;
my @t;
push @t, [ split /\s+/, $_ ] for @data;


# erste Zeile entfernen und als Worte speichern:
my @words = @{ shift @t };

# Erste Spalte vom Rest entfernen:
shift @$_ for @t;


my %paare;
for my $z (0..$#t) {
    for my $s (0..$#{$t[$z]}) {
        if ($t[$z][$s] > 0.7 and $z != $s) {
            $paare{$words[$z] . ' ' . $words[$s]} = $t[$z][$s];
        }
    }
}


print "Paare:\n";
while(my ($schluessel,$wert) = each(%paare))
{
    print "Der Wert von $schluessel ist $wert!\n";
}

_ _ D A T A _ _
apfel   banane  baum    grün    rot     ast     bielef  regen   obst    pflanze
apfel      1.000   0.700   0.700   0.809   0.500   0.702   0.200   0.301   0.902   0.609
banane     0.700   1.000   0.500   0.200   0.100   0.300   0.101   0.203   0.902   0.609
Baum       0.700   0.500   1.000   0.803   0.100   0.900   0.500   0.702   0.803   0.904
grün       0.809   0.200   0.803   1.000   0.800   0.600   0.300   0.703   0.605   0.803
rot        0.500   0.100   0.100   0.800   1.000   0.300   0.209   0.309   0.609   0.308
ast        0.702   0.300   0.900   0.600   0.300   1.000   0.304   0.309   0.700   0.809
bielef     0.200   0.101   0.500   0.300   0.209   0.304   1.000   0.900   0.600   0.300
regen      0.301   0.203   0.702   0.703   0.309   0.309   0.900   1.000   0.800   0.800
obst       0.902   0.902   0.803   0.605   0.609   0.700   0.600   0.800   1.000   0.900
pflanze    0.609   0.609   0.904   0.803   0.308   0.809   0.300   0.800   0.900   1.000