use strict;
use Data::Dumper;

my @array = ('A', 'b', undef, 0, 1, '', 'THE END');
$array[10] = 'The Real End';

my @defined_array = grep {defined} @array;

print Dumper(\@array, \@defined_array);


##</code><code>##

$VAR1 = [
          'A',
          'b',
          undef,
          0,
          1,
          '',
          'THE END',
          undef,
          undef,
          undef,
          'The Real End'
        ];
$VAR2 = [
          'A',
          'b',
          0,
          1,
          '',
          'THE END',
          'The Real End'
        ];