note dws When I try to invoke this via <code> print assemble qw(GATTACA ATTACA GATT AAGAT CCC); </code> I get <code> Modification of a read-only value attempted at indigo.pl line 2. </code> If I pass a copy of the array, Perl runs out of memory (PIII-600, 256Mb, ActiveState Perl 5.6.0). <p> The <code>map</code> looks suspicious. <p> 77183 77535