my $counting = '00000000';
$array[0] = "$counting$array[0]\n";

my $length = scalar(@array);
for(my $x=1; $x <= $length; $x++)
{
    my $size = length($array[$x-1]);
    $counting = $counting + $size;
    $array[$x] = "$counting$array[$x]\n";
}