Select Code to Download

#!/usr/local/bin/perl
my @array;
...
         $filtered{$split[1]}{$split[4]} = "1\t$split[1]\t$split[2]";
         }
}

use strict;
use warnings;