while (<STDIN>) {
    $some_hash{$_}++;
}