Good idea. Maybe you could submit it to P6P to come out in Perl 6.

Do you think that you could possibly create a module so that I may use map in void context as well or can your module do it?

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.
[download]