@values = sort { $a <=> $b } @values;

##</code><code>##

Scalar value @values[-1] better written as $values[-1] 
Name "main::file" used only once: possible typo