print map {} sort {} map {} grep {} @list; #### print map {} sort {} map {} grep {} @list, "\n" || die;