#!/usr/bin/env perl

use strict;
use warnings;


my $DATA = {

            "facts": [
                {
                    "name": "A", 
                    "type": "Normal"
                }, 
                {
                    "name": "B", 
                    "type": "Broken"
                }
            ],

 };

 print $DATA->{ facts }->{ name }->[0]; # A
 print $DATA->{ facts }->{ type }->[0]; # Normal
 exit;