Hi beginr,

I can see that this is your first post, Welcome to the Monastery! Make yourself at home., Please read Perl monks Faqs and do Super Search before posting.

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

There are some modules as well List::Unique, List::Uniq etc.