>perl -wMstrict -le
"my @array = map { chomp; lc } <>;
 use Data::Dumper;
 print Dumper \@array;
"
FOO
BAR
^Z
$VAR1 = [
          'foo',
          'bar'
        ];