open OUTPUT, ">$output"; # print stats to csv print OUTPUT "Word; count; Unique words;", $stats->count(),"; Total words;", $stats->sum(),"; mean;", $stats->mean(),"; variance ;", $stats->variance(),"; sigma;", $stats->standard_deviation()," \n"; foreach my $word (sort keys %words) { # print "$word \t $words{$word} \n"; print OUTPUT "$word; $words{$word} \n"; } close OUTPUT;