$_ = 'This is a test';
my @words = split;
my @wordpairs = map {[ $words[$_-1], $words[$_] ]} 1..$#words;
[download]

Update: oops! I failed to notice that Joost already provided this solution. (I should have expected that he would.) Apologies for being redundant.