#!/usr/bin/perl -w

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


my $f=join("",@temp);
my @lastreco=split("\n",$f);

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

   if ($t[7] =~ /HIGH/ && /LOW/ && /LRR/) {
print "$1\n";
}
}