Question

Is there a way to find minimum value in array with custom compare function except sort it and take first item?

Answer 1

You can create one using reduce from List::Util.

use List::Util qw/reduce/;
$min = reduce { $a < $b ? $a : $b } 1..10 # regular minimum

If you want to compare strings, for example, replace < with le (although List::Util also exports minstr).