当输入一个人的年龄哈希数组[{名称=>？，生日=>?},...] 只要人的年龄计算，按年龄排

#!/usr/bin/perl use warnings;use strict;use Data:umper;my $data = http://zhidao&#46;baidu&#46;com/question/[{name=>"jack",birthday=>"1981/01/02"},{name=>"alex", birthday=>"1988/07/06"},{name=>"kelly",birthday=>"1992/05/02"},{name=>"frank",birthday=>"1992/05/01"} ];my $final;my $i = 0;my %h;foreach my $guy (@$data) {    my ($year)= $guy->{'birthday'} =~/^(\d{4})/;    my $age = (localtime())[5]+1900-$year;        $h{$guy->{'name'}} = $age;}foreach (sort{ $h{$a}<=>$h{$b} } keys %h) {    $final->[$i]->{'name'} = $_;    $final->[$i]->{'age'} = $h{$_};    ++$i;}print Dumper($final);                                                                                                            <h4 class="ask">追问</h4>                            交互方式运行用的是irb不用Unix的"shebang"符号作为程序文件的第一行