my @arr = (4, 1, 6, 4, 3, 7);
my %saw;
my @new_arr = grep !$saw{$_}++, @arr;
print @new_arr;