Select Code to Download

my %ref;
my $threelinefakein = "...\n...";
...

   refLogic( \%ref, \$fake );
}

## Usage: fillRef( $hashref, $infilename );
sub fillRef {
...
## fake out for testing
   local *OUT = \*STDOUT;
}

    my %ref    = ... ; ## Data::Dump::dd(%ref)    output here
    my @probes = ... ; ## Data::Dump::dd(@probes) output here
...
            if ( $temp[0] == 2 ) { print $key. "\t" . $ref{$key} . "\n
+"; }
        }
    }