use strict;

my @names = ('rita', 'sue','bob', 'daisy');
$, = ' ';
$\ = "\n";
foreach  (0 .. $#names) {
    print @names[$_, $_+1];
}