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);