#!/usr/bin/perl
use strict;
use warnings;

use List::Util qw(min);

sub reducer {
   my @d = (5,6,7,8);
   my $m = min @d;
}

for (;;) {
   for (my $i=0; $i<10000; $i++) {
      reducer();
   }
   sleep(1);
}