for my $teil_n (values %{$ref}) {
    for my $teil_n_n (values %{$teil_n}) {
        for my $value (@{$teil_n_n}) {
            print $value."\n";
        }
    }
}