use Benchmark;

my $anzahl_tests = 10_000; 
Benchmark::cmpthese ( $anzahl_tests,
  'Code 1' => sub { 
    #hier der eine Testcode 
   },
  'Code 2' => sub { 
    #hier der andere Testcode 
   }
);