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