その本を読んだわけじゃないですが､おそらくこのﾌﾟﾗｸﾞﾗﾑは､｢kudamono_db｣という DBM のﾌｧｲﾙに､名称とその単価のﾃﾞｰﾀが既に入っていて､名称と個数を入力すると､｢名称｣｢単価｣｢個数｣｢総額｣が表示される､という意図のﾌﾟﾛｸﾞﾗﾑだと思います｡

なので､そもそも｢kudamono_db｣に名称と単価のﾃﾞｰﾀが入っている事が前提で､入力した名称に該当するﾃﾞｰﾀが無ければ､$tanaka{$kudamono} は何も表示されず､$tanka{$kudamono} * $kosuu は 0 になります｡

おそらく､この例が出ている前後に､DBM のﾌｧｲﾙを作るﾌﾟﾛｸﾞﾗﾑ例があると思います｡そのﾌﾟﾛｸﾞﾗﾑで DBM ﾌｧｲﾙを作った後に､このﾌﾟﾛｸﾞﾗﾑを実行すると､意図した結果が得られると思います｡

追記：

ご指摘のdbmはもちろん事前に作ってあります｡

とりあえず､そのﾌｧｲﾙが正しくできているか､というのは確認してますか？

DBM のﾌｧｲﾙが正しく出来ていれば､下記のようなｺｰﾄﾞで､中身を表示する事ができます｡

use Data::Dumper;

$dbname = "kudamono_db";
dbmopen(%tanka, $dbname, undef) or die "can't open dbm:".$dbname;

print Dumper(\%tanka);

dbmclose(%tanka);

中身が入っていれば､下記のような出力が得られるはずです｡

$VAR1 = {
 'apple' => '100',
 'banana' => '50'
 };