Select Code to Download

use List::Util qw( first );

...
    my $re_ref = first { $row =~ $_->{re} } @re_count;
    $re_ref->{count}++ if $re_ref;
}