% foreach my $rec (@records) { % foreach my $k ( keys %ARGS ) { % if ( $ARGS{$k} ) {     % if ( $ARGS{$k} eq $rec->{$k} ) {   % }   % } % } % }
<% $rec->{$k} %><% $ARGS{$k} %>MATCH!