#!/usr/bin/perl -w

my @array = (1, 2, 3, 4);

print "length = ", scalar @array,$/;

delete $array[2];

print "length = ", scalar @array,$/;
__END__
length = 4
length = 4