while (<>){
    ...
    $hash{key1}{key2}[0]++;
    ...
}