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";
    }
}