...
my $cmd = "Befehl1";
my $cmmd = "Befehl2";
my $output = `$cmd & $cmmd`;#gleicher Inhalt wie __DATA__

# Daten einlesen und HoH befüllen
while (my $row = $output) { #so hatte ich mir das gedacht, anstatt __DATA__

    chomp $row;
    
    if ($row =~ m/ElementID/) { # eine Key-Zeile
        @keys = split(/\|/, $row);
        @values = (); # neue Key-Zeile, daher Values löschen
    } elsif ($row =~ /\|/) { # eine Value-Zeile
        @values = split(/\|/, $row);        
    } else { # eine leere Zeile
        next;
    }
...