http://qs1969.pair.com?node_id=114350


in reply to Make Love, not war...

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