use List::MoreUtils qw[ uniq ];; print for uniq @list;; ARRAY(0x194ac18) ARRAY(0x194ac54) ARRAY(0x194ac90) ARRAY(0x194accc) ARRAY(0x194ad08)