my $worksheet ...
sub colcmp {
  ...
  $worksheet