use strict;
use warnings;
use diagnostics;

my $letter  = 'b';
addtwo();
addtwo();
print $letter;
sub addtwo {
$letter +=2;
}