#! perl -slw
use strict;

BEGIN {$List::Util::TESTING_PERL_ONLY = 1};

use List::Util qw[ reduce ];

my $s = 'this is a test';

my @r;
reduce {
    print "$a:$b";
    push @r, [ $a, $b ];
    $b;
} split ' ', $s;