Perl分割字符串的一个精妙的写法

#!/usr/bin/perl -w
use strict;
use warnings;

#分割字符串的一个精妙的写法
sub spliteName
{
    my $fileName = shift ;
    my $arr_hash_ref = shift ;
    open my $fd ,'<',$fileName or die "open file $fileName error!";
    #文件格式如 ：
    #    girl: lily lucy may hallen # 关键字：名字（使用空格分开） 
    while( <$fd> )
    {
        #这种方法先将属性项保存在$1中去掉，再将剩下的用splite分隔得到数组，非常精妙
        next unless s/^(.+?):\s*// ;
        $$arr_hash_ref{$1} = [ split ];
    }
}

sub main
{
    my $fileName = "test.txt";
    my %array_hash ;
    spliteName($fileName,\%array_hash);
    print_arr_hash(\%array_hash);
}
main();

sub print_arr_hash
{
    my $arr_hash_ref = shift ;
    for my $key (keys %$arr_hash_ref)
    {
        #注意这里是打印整个数组， 所以记得加上 @ 
        print "$key:@{$$arr_hash_ref{$key}} \n";
    }
}