Help for this page

Select Code to Download


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