my %stuff =
(
  Title => 'some default',
  What => 'some default',
  'Date added' => 'some default',
  Data => 'some default'
);
use JSON;
my $newstuff = jsonToObj( <<STRING );
{
  "Title": "Gone With The Wind",
  "Date added": "January 16th, 2006 ( an optional source )"
}
STRING
@stuff{keys %$newstuff} = values %$newstuff;