my @list       = map {                 s/\r\n$//r  } <$fh>; 
my @uc_list    = map {              uc s/\r\n$//r  } <$lc_fh>; 
my @split_list = map {[ split m/\|/ => s/\r\n$//r ]} <$piped_fh>;