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

my @uniques = uniq(<DATA>);

print @uniques;

__DATA__
Name1
Name2
Name2
Name3
Name3
Name3
Name3
Name4
Name4