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

##</code><code>##

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

##</code><code>##

ARRAY(0x194ac18)
ARRAY(0x194ac54)