...
my $p = $period{$curr_month};
if ($curr_month eq "Mar") {
    $p->[1] = '29 Feb' unless $curr_year % 4;
}
...