Or if you do not want to re-invent the wheel:

use strict;
use List::MoreUtils(qw/uniq/);

my @uniques = uniq(<DATA>);

print @uniques;

__DATA__
Name1
Name2
Name2
Name3
Name3
Name3
Name3
Name4
Name4
[download]

Output:

Name1
Name2
Name3
Name4
[download]

The initial list does not have to be sorted (as with the UNIX uniq) and the order is preserved.