#! /bin/perl

while (<>)
{
	push @lines,$_;
}

foreach $line (@lines)
{
	if (!$reached{$line})
	{
		print $line 
	}
	else
	{
#		print STDERR $reached{$line},"|| ",$line;
	}
	$reached{$line}++;
}

