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