in reply to Problem creating array

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

[download]

In Section Seekers of Perl Wisdom