sub gen_std_filter_for {
    my ($type, $transform) = @_;
    return sub {
        my $instr;
        local @components;
        for (extract_multiple($_,$extractor_for{$type})) {

##</code><code>##

use Data::Dumper;
warn Dumper( [ $_, $extractor_for{$type} ] );