my @byte_count;
push (@byte_count, 0);

my $length = scalar(@sentences);

for (my $x = 0; $x < $length; $x++)
{
    my $count;
    $count = length(Encode::encode utf8($sentence[$x]));
    $count += $byte_count[$x];
    $count += 9;
    push (@byte_count, $count);
}

open (Out, ">:utf8", "Sentences and byte count.txt") or die "Can't open";
for (my $x = 0; $x < $length; $x++)
{
    printf Out "%08d$sentences[$x]\n", $byte_count[$x];
}