map chomp, @eingang;
                  map $_=[ split(/ +/, $_) ], @eingang;
                
                  push (@eingang2,join(" ",@{$_})) for sort vergl @eingang;

                  
                  sub vergl {
                       return -1 if $$a[1] lt $$b[1];
                      return 1 if $$a[1] gt $$b[1];
                  }