Select Code to Download

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

1
x,y,z
...
          'y' => 0,
          'z' => 0
        };