use warnings;
use strict;

my $check = "a";
$check++ for 1..3;
print $check;
print "\n";

my $input= "ab";
print substr $input, -1, 1;
print "\n";

__END__

d
b