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