#!C:\Perl\bin
use strict;
use warnings;

my $SampleLine = "Perl is addictive.  There should be a warning label or something\.\.\.\n";
my $Count = 0;

#splice( my @TestArray );
undef( my @TestArray );

push( @TestArray, $SampleLine );
$Count = scalar @TestArray;
print "\npush Count is $Count\n";

if ( @TestArray ) { print"\nPush - TestArray IS here\n\n"; }
else { print"\nAfter Push - TestArray is NOT here\n\n"; }

undef( @TestArray );

$Count = scalar @TestArray;
print "\nundef Count is $Count\n";

if ( @TestArray ) { print"\nUnDef - TestArray IS here\n\n"; }
else {  print"\nAfter UnDef - TestArray is NOT here\n\n"; }

push( @TestArray, $SampleLine );
$Count = scalar @TestArray;
print "\npush Count is $Count\n";

if ( @TestArray ) { print"\nPush - TestArray IS here\n\n"; }
else { print"\nAfter Push - TestArray is NOT here\n\n"; }

splice( @TestArray );
$Count = scalar @TestArray;
print "\nsplice Count is $Count\n";

if ( @TestArray ) { print"\nAfter Splice - TestArray IS here\n\n"; }
else {  print"\nSplice - TestArray is NOT here\n\n"; }