grep の結果をスカラーコンテキストで評価すると、条件に一致したリスト要素の数を調べることができます。
$num_of_true = grep $_, @arr;
$num_of_comments = grep /^#/, @lines;
