my %hash = ();
$hash{buch} = {verfasser => 'niemand', titel => 'das nichtexistente buch'};

# gibt den titel des Datensatzes aus
my $buch = 'buch';
print $hash{$buch}->{titel};

# besser: abfangen, falls das bcuh nicht drin steht:
if( exists $hash{$buch} ) {
    print Dumper $hash{$buch};
}