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

##</code><code>##

 colcmp( $worksheet,  ... );
sub colcmp {
    my( $worksheet, ... 
}