print length keys %$hashref; print join ',', keys %$hashref; print Dumper $hashref; #### 1 x,y,z $VAR1 = { 'x' => 0, 'y' => 0, 'z' => 0 };