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

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

my $limit = 17;
my %p;

$_ = 9;

for my $s (0..$#t) {
    for my $z (0..$#{$t[$s]}) {
        if (
            $t[$s][$z] == $_     or
            $t[$s][$z] <  $limit
           )
        {
            last;
        }
        elsif ($t[$s][$z] >= $limit) {
            if ($t[0][$z] != $t[$s][0]) {
                $p{$t[0][$z]} = $t[$s][0];
            }
            else {
                print "gleiches Wort";
                last;
            }
        }
    }
}

while (my ($schl,$wert) = each(%p)) {
    print "Der Wert von $schl ist $wert!\n";
}


_ _ D A T A _ _
0 10 20 30
10 1 2 3
20 2 3 4
30 3 4 5