Are you sure it is being truncated exactly there? Try running this:

  print "before: $value\n";
  $hash{key} = $value;
  print "after: $hash{key}\n";
[download]