while (<FH>) {
    chomp;
    push @out, lc("$_\n");
}