## Omit the braces add a comma for a negligable further improvement
my $DNA = join '', map{ $byteMap[ $_ ] } unpack 'C*', $raw;