There are a couple of different ways to handle your dilemma , here's one method using a hash to keep track of what you've already seen:

my %seen;
for my $foo (@array) {
   print $foo unless $seen{$foo}++;
}
[download]

-- vek --