$ perl -MList::MoreUtils=minmax -wMstrict -e '
 my ($n,$x) = minmax(sprintf("%.4g",0.5)); die unless defined $x'
Died at -e line 2.

##</code><code>##

use warnings;
use strict;
use List::MoreUtils 'minmax';
use Devel::Peek;
for (1..1000) {
	my $in = rand();
	Dump(sprintf("%.4g",$in));
	my ($min,$max) = minmax(sprintf("%.4g",$in));
	last unless defined $max;
}