my @first_list_new = map { s/\s*$//m; lc $_ } <FIRST_LIST>;