foreach (@values) { print "$_\n" unless $seen{$_}++; }