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