mpapec

use Mojolicious::Lite;

helper iodelay => sub {
  my $cb = pop;
  my ($c, @steps) = @_;

  push @steps, sub {
    # log err if $_[1]
    shift;
    $c->$cb(@_);

mpapec

use strict;
use warnings;

use Benchmark qw(cmpthese);

my $String = "ATGC" x 1000;
my @Genes = qw(A T G C);
my %Count;

my %dispatch = map { $_ => eval "sub { \$_[0] =~ tr/$_// }" } @Genes;