I have the following code, where "length keys" is returning one when I expect it to return three. Any ideas about what's going on? BTW, this is Strawberry Perl 5, version 12, subversion 1 (v5.12.1) built for MSWin32-x86-multi-thread.

  print length keys %$hashref;
  print join ',', keys %$hashref;
  print Dumper $hashref;
[download]

produces the following (note that keys have been changed to protect privacy, they are actually 60-80 characters in length)

1
x,y,z
$VAR1 = {
          'x' => 0,
          'y' => 0,
          'z' => 0
        };
[download]