хранение формата Джейсона в Perl и его поиск

#!/usr/bin/perl
use JSON;
use Data::Dumper;

$json = '{"a":1,"b":'{"f":6}',"c":3,"d":4,"e":5}';

$text = decode_json($json);
print  Dumper($text);
Average Alpaca