sub hcmp {
  use Data::Dumper;
  return(Dumper(shift) eq Dumper(shift));
}