my $currentperiod = 'P12';
print "\nCurrent Period is (LE period is current period incremented by one): ". $currentperiod;

my $LEperiod = $currentperiod;
++$LEperiod;
$LEperiod = 'P01' if $LEperiod eq 'P13';

print "\nCurrent Period after ifs is: ". $currentperiod;
print "\nDefault LE period is : " . $LEperiod . "\n\n";