@newarray = grep (!$unique{$_}++, @array);
print @newarray;