#!/usr/bin/perl

my @array = ( "I", "am", "not", "a", "crook" );
print "Here is the original array\n";
my $ctr = 1;
foreach( @array )
   {
   print "$_\t $ctr\n";
   $ctr++;
   }
print "\n\nNow null it!\n";
$array[2] = NULL;
$ctr = 1;
foreach( @array )
   {
   print "$_\t $ctr\n";
   $ctr++;
   }
print "\n\nNow undef it!\n";
$array[2] = undef;
$ctr = 1;
foreach( @array )
   {
   print "$_\t $ctr\n";
   $ctr++;
   }

print "\n\nNow splice it!\n";
splice(@array, 2, 1);
$ctr = 1;
foreach( @array )
   {
   print "$_\t $ctr\n";
   $ctr++;
   }