use strict;
use warnings;

my @names = qw{rita sue bob daisy};

$, = q{ };
$\ = qq{\n};

foreach  (0 .. $#names)
{
    print
         $_ == $#names
       ? $names[$_]
       : @names[$_, $_ + 1];
}