Hash Table取出数据的问题

刚开始学Perl,用来解决一个实际的问题

从命令行输入yyyymmdd的日期格式,用正则截取到变量里,月份有两位数的也有1位数的,
如果月份是1位数的时候,从这个Hash Table去取数据就失败了:

#!/usr/bin/perl

use Getopt::Std;
use Date::Calc qw(Add_Delta_Days);

Getopt::Std::getopts('dmnri:', \%options);

if($options{i} ne ""){
    $inputdate=$OutPutfile=$options{i};

    if ( $inputdate=~/^(2\d{3})([01][0-9])([0-3][0-9])/ ){
        my ($StartYear, $StartMon, $StartDay) = ($1,$2,$3);
        @EndDateA = Add_Delta_Days($StartYear,$StartMon,$StartDay,+1);

        %Month3Letter = (
            1 => 'Jan',
            2 => 'Feb',
            3 => 'Mar',
            4 => 'Apr',
            5 => 'May',
            6 => 'Jun',
            7 => 'Jul',
            8 => 'Aug',
            9 => 'Sep',
            10 => 'Oct',
            11 => 'Nov',
            12 => 'Dec'
        );
        print "$Month3Letter{$StartMon}\n";
    }
    else{
        print "invalid date format\n"
    }
}
else{
    print "parameter required: date\n"
}


求解决方法

$inputdate=~/^(2\d{3})([01]?\d)([0-3]\d])/