#! /bin/perl

while (<>)
{
	$lines{$_}++;
}

foreach $key (keys %lines)
{
	print $key;
}
