Select Code to Download

use strict;
use warnings;
...

writefraw( $s1, "fname-1" );
writefraw( $s2, "fname-2" );

use strict;
use warnings;
...
    shift @b;
    return \@b;
}

No thread (byte)
---------
...
---------
Time: 51
Count: 145