In both the OPed code and in huck's reply:

my $ComResult={sidStatComp($prevsidstat,$cursidstat)};
...
sub sidStatComp {
  ...
  return 1;
  }
[download]

This tries to build the anonymous hash  { 1 } (update: a reference to which is assigned to $ComResult, which is never used) that Perl is, I think, warning about. (BTW: Kudos to PSP for using warnings — and I hope strict! OTOH, it would have been nice if PSP could have pointed out which line in the posted code was line 65.)

Update: Code examples:

c:\@Work\Perl\monks>perl -Mstrict -MData::Dump -e
"my $x = { 1 };
 dd $x;
"
{ 1 => undef }

c:\@Work\Perl\monks>perl -Mstrict -Mwarnings -MData::Dump -e
"my $x = { 1 };
 dd $x;
"
Odd number of elements in anonymous hash at -e line 1.
{ 1 => undef }
[download]