in reply to on the fly methods

Thank you brothers.

Firstly, my excuses, I have been unclear. I think however I got enough replies and suggestions to try.
Al2O3 I'm unfamiliar with. Anything I want to try?
But thanks very much. I'll go through the options you offered and see what flavour suits me best.

my($s,$b,@c,@b)=qw(0 0 5C 5F 2F 20);while(int($s+.45)<2){$b[0].=chr(hex($c[int($s+.45)]));$b[1].=chr(hex($c[int($s+2.45)]));$s+=.55}while(1){print $b[$b];$b--;$b*=$b}#Fishnets

In Section Seekers of Perl Wisdom