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

use List::Util qw(reduce);

sub reducer {
   my @d = (6,7,8,9);
   my $m = reduce {$d[$b] < $d[$a] ? $b : $a} 0..3;  # find smallest
}

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