#!/usr/bin/perl

use strict;

while (<DATA>) {
    print if ( (split)[4] > 50 );
}

__DATA__
ENSMUSG00000027831    ENSTBEG00000008938    ortholog_one2one    Eutheria    56.2942008486563
ENSMUSG00000027831    ENSLAFG00000011038    ortholog_one2one    Eutheria    58.5845347313237
ENSMUSG00000027831    ENSDORG00000014560    ortholog_one2one    Sciurognathi    43.9759036144578