# Ausgabe Ergebnis:
my @header = qw(ElementName OnTimeInMilliseconds LoadPercentage);
print join("|", @header) . "\n";

for my $elementId (keys %elements) { 
    
    my @entry = map {defined $elements{$elementId}->{$_} ? $elements{$elementId}->{$_} : ''} @header;
    
    print join("|", @entry) . "\n";
    
}