while (defined (my $line = <STDIN> )) {
        chomp $line;
        my @currentline = split /\s+/, $line;
        $histogram{$_}++ for @currentline;
}