Select Code to Download

#!/usr/bin/perl -w
use strict;
...
output:
a b c d
a b c d !

my $num = grep{1}@a;
print $num; ##prints 5 (num of elements in @a) ie, abcd!