my @list       = map { chomp; $_ } <$fh>;
  my @uc_list    = map { chomp; [uc $_] } <$lc_fh>; # used only once
  my @split_list = map { chomp; [ split(/\|/, $_) ] } <$piped_fh>; # used only once