#!/usr/bin/perl -w

$a = "al";
#Incrémenter la chaîne et afficher le résultat
print ++$a, "n";