my $i = "amz";
print ++$i, "\n";