my $transaction_map_mismatch = get_trans_array_mismatch(\@to_proc,$d);

print Dumper $transaction_map_mismatch;

#--------Sub------------
sub get_trans_array_mismatch {
    my $transaction_array   = shift;
    my $d                   = shift;

    my $trans_map_ref = {map {(split)[1]=>{}} @$transaction_array};

    foreach (@{$transaction_array}) {
        my ($tid, $item) = split;

        foreach (grep {hd($item,$_) <= $d} keys %$trans_map_ref) {
            $trans_map_ref->{$_}{$tid}++;
        }
    }
    return $trans_map_ref;
}