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