return( "A", "Cat A" ) if $abs_diff < 75_000 and $source eq "ICE"; #### # process analysis rules foreach( @$analysis_rules ) { eval $_; } #### # process analysis rules foreach( @$analysis_rules ) { my( $cat, $comment ) = eval $_; return( $cat, $comment ) if $cat and $comment; }