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;
}