Ooh,
@array = ();? Nice. Yeah, I completely forgot how to empty an array, so I... made my own way. I guess we know now why I'm a chemistry major now instead of Computer Science, haha.
If its okay, i'm going to test your script and replace mine in the bin? Or not, I'll figure it out when I get back to the lab.
Again, thanks.
C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}