Odd number of elements in hash assignment at ...
[download]

at where? The code snippet you present cannot be the cause of the error shown ¹⁾. I can't get a clue of what's going wrong if you omit the line number of the error, don't provide the code surrounding that very line, but an entirely unrelated snippet. See How (Not) To Ask A Question.

Are you doing some method call? Remember that the object (or class) is passed in as the first argument calling $obj->method(). Consider:

use strict;
use warnings;

my $obj = bless do { \my $x }, __PACKAGE__; # current package, e.g. 'm
+ain'

print "wrong:\n";

$obj->wrong(name =>'John', age => 28);

print "-" x 50, "\n";
print "right:\n";

$obj->right(name =>'Paul', age => 30);

sub wrong {
    warn +(caller(0))[3],'(',join(',',map "'$_'", @_),")\n";
    my %h = @_;
    print "$_ => $h{$_}\n" for keys %h;
}

sub right {
    warn +(caller(0))[3],'(',join(',',map "'$_'", @_),")\n";
    my $self = shift;
    my %h = @_;
    print "$_ => $h{$_}\n" for keys %h;
}
__END__
wrong:
main::wrong('main=SCALAR(0x8167870)','name','John','age','28')
Odd number of elements in hash assignment at - line 17.
Use of uninitialized value in concatenation (.) or string at - line 18
+.
28 => 
John => age
main=SCALAR(0x8167870) => name
--------------------------------------------------
right:
main::right('main=SCALAR(0x8167870)','name','Paul','age','30')
name => Paul
age => 30
[download]

As for this...

if(!$data{$match})
     {
        $data{$match}++;
        $count = $count + 1;
     }
[download]

why don't you just $count++ ?

1): There is no assignment to a hash in that snippet, but a post-increment of a hash value keyed with the content of the variable $match

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

why don't you just $count++ ?

And put it along with the the checking as well...

$data{$match}++ || $count++;

# or,

$count++ unless $data{$match}++;
[download]

---

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

That's not equivalent; the original code only increments $data{$match} if it's false. But there are good odds that what you give is what the OP actually wanted.

my %h1 = ( 1, 2 ); # OK - same as ( 1 => 2)
my %h2 = ( 1    ); # Not OK - make no sense
[download]

Is it important? I'd say it probably is. Something is happening in your data that you haven't anticipated. Go back to your data and find out what's causing the error.

Along similar lines:

$ fortune -m "Alexander the Great"
(science)
%
(1) Alexander the Great was a great general.
(2) Great generals are forewarned.
(3) Forewarned is forearmed.
(4) Four is an even number.
(5) Four is certainly an odd number of arms for a man to have.
(6) The only number that is both even and odd is infinity.

Therefore, Alexander the Great had an infinite number of arms.
%

Young syphilis, despite off-topic this is an excellent story :)

Young syphilis, despite it's off-topic this is an excellent story :)

Could it be you are doing something the equivalent of:

use strict;
use warnings;

my $valuesLine = <DATA>;
my @values = split /\s+/, $valuesLine;
my %data = @values;

__DATA__
one two three four five
[download]

where instead you should initialize %data using something like:

my %data = map {$_ => 0} @values;
[download]