Select Code to Download

use strict;
use warnings;
...
          Rate  lin_s fast_s
lin_s   5761/s     --   -48%
fast_s 11183/s    94%     --

sub straight_merge {
    my ($array)=(@_);
...
        @$array=@$buffer;
    }
}