Re: Make Love, not war...

[thunders]

just a quick tip,
after you set up your array, the important part of your foreach loop could be rewritten like so:

for(@h1){$_=chr;print}

get to know the $_ special variable. it'll save you tons of typing and redundant statements. also, the for and foreach loops are interchangable. Any place you can use one you can use the other. example:
foreach ($i=0;$i < 10;$i++){do something}
for is three characters foreach is seven, guess which one most Perl programmers use :)
hint: think lazy

[Sifmole]

Perhaps the choice of using the code the programmer did is based on the aesthetic layout?

While you are at it? Why bother reassigning the result of chr to $_? Just drop that line alltogether to get  for(@h1){ print chr; } and of course if your decision is to be based on the number of characters you can go to print chr for(@h1); but getting the smallest WTDI is golf and not obfuscation.

[thunders]

I'd personally use:
print map chr, @h1;
But to each their own. I was just offering some advice.