Select Code to Download

open my $inFile, '<', "MOUSE_TF1.txt" or die "Failed to open MOUSE_TF1
+.txt: $!";

use warnings;
use strict;
...
        print join ("\t", $key, @{$families{$key}}{@fields}), "\n";
    }
}