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