my $hash_ref = from_json($json);

while ( my ( $k, $v ) = each %$hash_ref ) { print qq($k => $v\n) }