Help for this page

Select Code to Download

Select or download this

use List::Util 'sum';
my $avg = @times ? sum(@times)/@times : "NaN";