my $r = timethese(
    -5,
    {   list => sub { code1($fstr); },
        enum => sub { code2($fstr); }
    }
);

cmpthese $r;