print diffCount('aaaaacaacaaagcc', 'acaggtgacaaaaaa');

sub diffCount {
    my (%counts, $sum, $i);

    $counts{substr($_[0], $_, 1)}++ for 0..(length($_[0]) - 1);
    $counts{substr($_[1], $_, 1)}-- for 0..(length($_[1]) - 1);

    $sum += abs $_ for values %counts;

    return $sum;
}