grep{ exists $ofInterest{ lc $_->{ Name } } } @proc_info
## : )

##</code><code>##

for my $info (
    grep{ exists $ProcsOfInterest{ lc $_->{ Name } } } @proc_info
) {
    printf "%-25s %14d %12.6f %14.7f\n", @{ $info }{ @fields };
}