...
 my $p=0;
 push @result, ($p++)x$_ for @count;
 ...