Ummm...isn't a sort a bit easier and simpler?

my @array = ( 99, 67, 0, -100, -38, 98);
my ($min, $max) = (sort @array)[0,-1];
[download]