C:\Users\Bill\forums\monks>type rodinski.pl
use strict;
use warnings;
use Data::Dumper;

my @arry = qw(A B C);

my @gaps;
push @gaps, [$arry[$_], $arry[$_+1]] for 0..$#arry-1;


print Dumper(\@gaps);

C:\Users\Bill\forums\monks>perl rodinski.pl
$VAR1 = [
          [
            'A',
            'B'
          ],
          [
            'B',
            'C'
          ]
        ];