$ cat zzzz
AAAA
BBBB
CCCC
DDDD
EEEE
$ perl -e '
> ( $dg, $vo ) = map { map { chomp; lc $_ } scalar <> } 1 .. 2;
> print qq{$dg, $vo\n};
> print q{-} x 15, qq{\n};
> print for <>;' zzzz
aaaa, bbbb
---------------
CCCC
DDDD
EEEE
$