my @names = ('rita', 'sue','bob', 'daisy');
  for (my $i = 0; $i < @names; ++$i)
  {
    print $names[$i],
          '     ',
          ($names[$i+1] || ''),
          "\n";
  }