sub parse {
    my ($self,$hashref)=@_;
    open my $fh, '<:raw', $self->{FILE} or die $!;
    while (<$fh>) {
        chomp;
        $hashref->{$_}++ for split;
    }
}