sub ikegami {
    my %wordcount;
    ++$wordcount{$_} for split ' ', $line;
}