Select Code to Download

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

rita     sue
sue     bob
bob     daisy
daisy