#!/usr/bin/perl

use strict;
use warnings;
use Term::ANSIColor;
use List::Util qw(max sum first);

...

$class = '...';

$color = first { $class =~ /$_->{'re'}/ } @rules;				
$color = $color->{'color'};