#!/usr/bin/perl

# 函数定义

sub PrintHash{

   my (%hash) = @_;

   foreach $item (%hash){

      print "元素 : $item\n";

   }

}

%hash = ('name' => 'jiyik', 'age' => 3);

# 创建函数的引用

$cref = \&PrintHash;

# 使用引用调用函数

&$cref(%hash);