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

##</code><code>##

use List::MoreUtils qw(natatime);

my @list = qw( 24 101 25 102 23 103 );

my $it = natatime 2, @list;

my @pairs;

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