Select Code to Download

print Dumper \@list;
$var = (
...
    [ 4,5,6 ],
    [ 1,2,3 ],
);

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

ARRAY(0x194ac18)
ARRAY(0x194ac54)