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