#! perl -slw
use strict;

use List::Util qw[ reduce ];

my $s = 'this is a test';
my @s = split ' ', $s;

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