#!/usr/local/bin/perl -w
use strict;
my $s = 'This is a test';

my @words = split / +/,$s;

my @pairs = map [@words[$_,$_+1]],0 .. @words-2;