print length keys %$hashref;
  print join ',', keys %$hashref;
  print Dumper $hashref;