use strict;
use warnings;
use List::Util 'sum';
use Data::Dump qw[ pp ];

sub gen {
    my $href = shift;
    my %score = %$href;
    my $norm = sum values %score;
    my @series;
    
    for (1 .. $norm) {
        my ($max, $elem) = 0;
        for (keys %score) {
            ($max, $elem) = ($score{$_}, $_) if $score{$_} >= $max;
            $score{$_} += $href->{$_};
        }
        push @series, $elem;
        $score{$elem} -= $norm;
    }
    
    return \@series;
}

pp gen( { A => 4, B => 2, C => 3, D => 1 } );
pp gen( { A => 5, B => 4, C => 3, D => 2, E => 1 } );