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

my @FullArray=qw(1 2 3 4 5 6);
print "The number of elements: [",scalar(@FullArray),"]\n";
my $LastElement = $#FullArray;
print "Removing the 3rd element . . .\n";
my @Temp = @FullArray[0..1];
@FullArray = (@Temp, @FullArray[3..$LastElement]);
print "The number of elements: [",scalar(@FullArray),"]\n";
print "The remaining elements:[@FullArray]\n";