my @lines = qw/a b c d e/;
my $total = @lines;