#!/usr/bin/perl -w

use strict;
use warnings;

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

#remove part4
splice @array, 5, 1;

print @array; 


##</code><code>##

part1part2part3part4part5part7part8