my $data = {
          'PairedDevices' => [
                          {
                               'PairName' => 'Chestnut',
                               'MetricSeverity' => '34',
                               'MinPercent' => '20',
                               'HostOwningGroup' => 'AIX Team',
                               'StatusAlertThisPair' => 'Y',
                               'StatusSeverity' => '31',
                               'HostedEnvironment' => 'Test',
                               'MetricAlertThisPair' => 'Y',
                               'MaxPercent' => '80',
                               'HostedApplication' => 'IEOR',
                               'HostOS' => 'AIX'
                          }
                             ]
           };

foreach my $e (@{$data->{PairedDevices}}) {
    print "Pairname is: " . $e->{PairName} . "\n  ";
    print "Hosted Apps are: " . $e->{HostedApplication} . "\n" ;
    print "HostOS is: " . $e->{HostOS} . "\n";
}