Help for this page
@values = sort { $a <=> $b } @values;
Scalar value @values[-1] better written as $values[-1] Name "main::file" used only once: possible typo