#!/usr/bin/perl

use strict;
use warnings;

my %my_hash = (
 teil1 => {
  teil2 => {
   teil3 => {
    teil_3_1 => ['wert_xy'],
    },
   teil4 => {
    teil_4_1 => ['wert_ab']
    },
   },
  },
);


my $ref=$my_hash{teil1}->{teil2};

print $ref->{teil3}->{teil_3_1}->[0]."\n";
print $ref->{teil4}->{teil_4_1}->[0]."\n";