Select Code to Download

my @a=qw( wilma fred barney betty pebbels dino ); 
for (my ($i,$p,$c,$n)=(0,undef,@a);
...
3  Prev=barney  Curr=betty      Next=pebbels
4  Prev=betty   Curr=pebbels    Next=dino
5  Prev=pebbels         Curr=dino       Next=