学习引用竟然可以引用程序块！！

#use strict;

sub say {
   print @_;
}



        my %book1 = (
                                                "书名" => "谋杀与创造之时" ,
                                                "作者" => "劳伦斯",
                                                "价格" => "23",
                                        );

        my %book2 = (
                                                "书名" => "繁花将尽" ,
                                                "作者" => "劳伦斯",
                                                "价格" => "33",
                                        );
       
        my @books = (\ %book1,\ %book2);
    for (@books) {
                 for my $key(keys %{$_}) {
                 say "$key = ${$_}{$key}\n\n";
                 }
    }



                                                                                               
my $say = ${say('这里是say()!!!')} ;           #引用say();

say $say;

<STDIN>;

竟然可以