use warnings;
use strict;

my $string = "abc de fgh ijkl";
my @array = split /\s+/, $string;
my $count = 0;
while ($count < $#array) {
  print $"array[$count] $array[$count+1]\n";
  $count++;
}