Select Code to Download

use List::MoreUtils qw( pairwise );
my @nametape 
    = pairwise{ [ $a, $b ] } qw( 24 101 25 102 23 103 );

use List::MoreUtils qw(natatime);

...
while ( my @vals = $it->() ) {
  push @pairs, \@vals;
}