while ($from <= $#vidids) {
    my @section = @vidids[ $from .. $to ];
    my $idees = join ',', @section;
    my $uri = "https://www.googleapis.com/youtube/v3/videos"
           . "?part=items(viewCount)&id=$idees&key=$API_KEY";
    my $result = get($uri);
    my $json = decode_json($result);
    push @counts, map $_->{viewCount}, @{ $json->{items} };

} continue {
    $from += 50;
    $to = $from + 50;
    $to = $#vidids if $to > $#vidids;
}