FreeBSD/dummy/max.pl

#!/usr/local/bin/perl
use strict;
use warnings;
use List::Util qw(min), qw(max);
use Crypt::Random qw( makerandom );
use feature 'say';

my @r  = ();

for (1..256) {
	push(@r, makerandom ( Size => 8, Strength => 1 ));
}

sub compare
{
   if($a < $b)
   {
      return 1;
   }

   if($a == $b)
   {
      return 0;
   }
   return -1;
}

my @s =sort compare (@r);
my $i = 0;


print "000: ";
for(@s){
	printf "%03d ", "$_ ";	
	$i = $i +1;
	if (! ($i % 8)) {
		printf "\n%03d: ", $i;
	}
}


print "\n";
say "Min :".min(@r);
say "Max :".max(@r);