tie my @book, 'Prosa', genre => 'Gute Nacht Geschichten';
read $book[0];
say 'good night';