se Data::Dumper;
@brr;
@arr = (1,2,3,1);
$flag;
$len = scalar(@arr);
$len = $len - 1;
foreach $i(0 .. $len){
        $length = scalar(@brr);
        if($length){
                foreach $j(@brr){
                        if($j == $arr[$i]){
                                $flag = 'true';
                                last;
                        }else{
                                $flag = 'false';
                                #push(@brr, $arr[$i]);
                        }
                }
                if($flag eq 'false'){
                        push(@brr, $arr[$i]);
                }
        }else{
                push(@brr, $arr[$i]);
        }

}
print Dumper(@brr);