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