my $array_ref = [];
my @array2 = (qw/Buch Titel Verfasser/);
$array_ref[0] = \@array2;

# gib das Buch aus:
print $array_ref->[0]->[0];