!/usr/bin/perl -w

open (FILE,"$ARGV[0]") or die;
my @temp =<FILE>;
close FILE;


foreach (@temp){
my @t= split("\t",$_);

#  $t[2],"\n";
 if( $x =~ ($t[4]-$t[3]) > 70 * /100) {
print "$x\n";
}
}