use strict;
use warnings;

my $index = 'AH';
$index++;
print "++ gives $index\n";
$index += 1;
print "+= gives $index\n";