if (@events = grep /$event/, @{ $region_of_state{$region_of_state}}) {
[download]

to:

if (@events = grep { $_ eq $event } @{ $region_of_state{$region_of_sta
+te} }) {
[download]