my @True = grep {$_} @Array;