#!/usr/bin/perl -w

use strict;
use warnings;

my @array = qw(
		part1
        part2
        part3
        part4
        part5
        part6
        part7
        part8
);

#remove part4 - which is $array[3], not $array[5]!
splice @array, 3, 1;

print @array;