前回のCGIについての質問の続きになります。よろしくお願いいたします。

原因の部分が判明したのですが、どこが悪いのかがわかりません。
かたちは変えずに修正できるのでしょうか。わかる方お願いいたします。

文中の「$time = timelocal(0, $min, $h, $d, $Mon{$m} - 1, $y);」の部分についてエラーがでます。

# メールの Date から time 値を取得する

sub xxx_get_mail_time{

use Time::Local;

my($da)=@_;

if ($da eq "") {return time;} ## パラメータ空の場合は現在を返す



my($w,$d,$m,$y,$t,$nd,$canma,$find,$wd,,$h,$min,$sec,$nh);

%Mon = ("Jan",1,"Feb",2,"Mar",3,"Apr",4,

"May",5,"Jun",6,"Jul",7,"Aug",8,

"Sep",9,"Oct",10,"Nov",11,"Dec",12);

chomp $da;

$canma = ",";

$find = index ($da, $canma);

if ($find >= 0) {

($w,$d,$m,$y,$t) = split(/ /,$da);

$wd = substr($w,0,3);

}

else{

($d,$m,$y,$t) = split(/ /,$da);

}

if(length($d)==1){

$nd = "0".$d;

}

else{

$nd = $d;

}

$d =~s/^[0]//;

($h,$min,$sec) = split(/:/,$t);

$h =~s/^[0]//;

$min =~s/^[0]//;

$sec =~s/^[0]//;

my $time;

$time = timelocal(0, $min, $h, $d, $Mon{$m} - 1, $y);



return $time;

}