Select Code to Download

my @array = qw( wilma fred barney betty );

...
    #     print $array[ $i + 1 ] unless $i == $#array;
    #
}

use strict;
my @array = qw( wilma fred barney betty );
...
# It's useful if you plan to break out of your loop with
# a 'next' command.