use Data::Dumper;
print Dumper( [ $cmp, $clt ] );