my $minvalue;
foreach (@temp){
  my @t= split("\t",$_);
  $minvalue= $t[2] if (not defined $minvalue);
  if( $x =~ ($t[4]-$t[3]) > 70 * $minvalue/100) {
    ...