my @count = (1,3,1,1,1,1,1,2,1,1,3,2);
my @result;

for (my $i=0; $i <= $#count; $i++) {
    foreach (1 .. $count[$i]) {
        push(@result, $i);
    }
}

print "\@count: @count\n";
print "\@result: @result\n";