my $total = grep $_ ne "\n", @lines;