my %histogram;
    $histogram{$_}++ for @list;