use Data::Dumper qw/Dumper/;
my @datenstruktur = (
  nested, {1 => 2, 3 => 4}, [1,2,3,4,5],
);

print Dumper \@datenstruktur;