my %h;
$h{$_}++ while(<>);