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