my $sum;
$sum += $_ foreach (@{$occurrences{'atcg'}});
my $average = $sum / scalar(@{$occurrences{'atcg'}});