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

##</code><code>##

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 }