What you want is the chr function, though you'll need to give it an offset so that 1=a, etc.

my @message=(8,5,12,12,15);
print map(chr(96+$_),@message); # Change the 96 to 64 for uppercase
[download]