my $t;

sub a {};
sub b {};

multi sub c (1) {};
multi sub c (2) {};

for ^7 {
  my $iterations = ^10 ** $_;
  say $iterations.max ~ " calls";

  $t = now;
  for ^$iterations { $_ %% 2 ?? a() !! b() };
  say "regular: {now - $t}";

  $t = now;
  for ^$iterations { c($_ %% 2 ?? 1 !! 2) };
  say "multi:   {now - $t}";
}