use Benchmark qw(cmpthese);
use diagnostics;
 
 
my $limit = 10_000;
sub f0 { ++$_ < $limit ? &f0 : return $_ }
sub f1 { ++$_ < $limit ? goto &f1 : return $_ }
sub f2 {{ ++$_ < $limit ? redo : return $_ }}
cmpthese -1, {
   f0 => sub { $_ = 0; f0() },
   f1 => sub { $_ = 0; f1() },
   f2 => sub { $_ = 0; f2() },
};