while (...) {
    ...
    $hash{$header} = $inhalt;
    push @keys, $header;
    ...
}
...
for my $key (@keys) {
    print "$key => $hash{$key}\n";
}