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:
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
In Section
Obfuscated Code