in reply to can't find mistake. using sort and slice in regex
(sort {$b<=>$a}($1, $2))[0] [download]
(sort {$b<=>$a}("$1", "$2"))[0] [download]