Select Code to Download

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

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