Alternative non-destructive approach:

my $vidis_ = sub { \@_ }->(@vidis);
while (my @section = splice @$vidis_, 0, 50) {
   ...
}
[download]

None of the elements are copied, so this is quite efficient.