#!/usr/local/bin/perl

use strict;
use warnings;
use List::Util qw/sum/;

my $host = 'db201.tp.mud';

my @redAlert = ("db");
my @orangeAlert = ( "c", "sm" );
my %status =
  ( 'status_history' => { 'status' => [ 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 ] } );

  my $statusHist01  = sum @{ $status{status_history}{status} }[ 0 .. 1 ];
  my $statusHistTot = sum @{ $status{status_history}{status} };
	

if (
		grep /^\Q$host\E/i, @redAlert
			or ( grep /^$host/i, @orangeAlert and $statusHist01 == 2 )
			or $statusHistTot == 3
		  )
		  {
			  	print "We've got a winner!";
			}