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

# next twelve if are used to increment current period by one
if ($currentperiod eq 'P01') {
                $LEperiod = 'P02';
}
elsif ($currentperiod eq 'P02') {
                $LEperiod = 'P03';
}
#... die anderen elsifs
elsif ($currentperiod eq 'P12') {
                $LEperiod = 'P01';
}
print "\nCurrent Period after ifs is: ". $currentperiod;
print "\nDefault LE period is : " . $LEperiod . "\n\n";