my $LEperiod = "P12";
$LEperiod = 'P01' if ++$LEperiod eq 'P13'; 
print $LEperiod'