while (<>)
{
    $freq{$_}++ for split;
}