for my $foo (...) {
    my $color = first { $class =~ /$_->{'re'}/ } @rules;
    $color = $color->{'color'};

    ...
}