Perl: 匿名函数，数组，列表的定义

定义匿名函数：

      *anonymous_func = sub { printf("I'm an anonymous function\n"); } ;

      这样我们就可以通过 &anonymous_func来进行调用 了。

 

定义匿名数组：

      my($anonymous_array_ref) = [ 1, 2, 3 ];

      $anonymous_array_ref->[0];

 

定义匿名列表：

      my($anonymous_hash_ref) = { 'A' => 'Apple', 'B' => 'Boy' };

      $anonymous_hash_ref->{'A'};