>>19
my $hogehoge = new ABCD::Saitama;
my $st = $hogehoge->db->wakame('wake wakame');

　を書き直すと

my $hogehoge = ABCD::Saitama->new();
my $tmp = $hogehoge->db();
my $st = $tmp->wakame('wake wakame');

　と同等、意味は

1行目の左辺：　ABCD::Saitamaパッケージで定義されているnew関数を呼出す。
1行目のnew関数：　ABCD::Saitamaパッケージと関連付けされたリファレンスを返す。
1行目の右辺：　new関数の戻り値であるリファレンスを$hogehogeに代入。
2行目の左辺：　ABCD::Saitamaパッケージで定義されているdb関数を呼出す。
2行目のdb関数：　何かのパッケージと関連付けされたリファレンスを返す。
2行目の右辺：　db関数の戻り値であるリファレンスを$tmpに代入。
3行目の左辺：　何かのパッケージで定義されているwakame関数に引数を渡して呼出す。
3行目のwakame関数：　引き数を受け取って何かの値を返す。
3行目の引き数：　この場合の引き数とは'wake wakame'という文字列定数のこと。
3行目の右辺：　wakame関数の戻り値である何かの値を$stに代入。