my $check = "A";
for (1..2) {
	$check++;
}
say $check;

#2:

my $input = "xy";
$input = reverse ($input);
chop $input;
say $input;