#!/usr/local/bin/perl

foreach (  ) {
  print unless $seen{$_}++ ;
}