perl -E '$h={a=>1,b=>2}; say $h->{a}'

##</code><code>##

perl -E '$h={a=>1,b=>2}; say ${$h}{a}'

##</code><code>##

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