@data = grep { $_ !~ /^\s*$/ } @a;
my $length = scalar @data;