#!/usr/bin/perl
use warnings;
use strict;

my @whatevers =
    qw( zero
        one
        two
        three
        four );

splice @whatevers, 2, 1;

foreach my $ix ( 0 .. $#whatevers ) {
    print "$ix ==== $whatever[$ix]\n";
}