$ave = do { $ave += $_ for @array; $ave } / @array;