my %occurrences;
push @{$occurrences{$sequence[$_]}}, $numbers[$_]
   foreach (0 .. $#sequence);

##</code><code>##

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