Select Code to Download

    my $tp = 0;
    my $fp = 0;
...
        else {
            $fp++;
        }

my $tp=0;
my $fp=0;
...
if ( !myhash{$pred} ) {
        $fp++;
    }