if(@$x) { $$max = $y->[-1] if $y->[-1] > $$max; $$min = $y->[-1] if $y->[-1] < $$min; } else { $$min = $$max = $y->[-1]; } } return $.; ## Number of lines }