Hi Dave,

So i have created a hash with the first to columns as an identifier. What i need to is compare the hash values which are in an array.

The code is given below

Best and Thanks
Deepak

open($f,$ARGV[0]);

while(<$f>)
{
        chomp;
        @l = split "_",$_;
        $h{$l[0]."\t".$l[1]} .= $l[2]."\t";
}
foreach (sort keys %h)
{
        @n = split "\t",$h{$_};
        if(scalar @n == 1)
        {
                print "$_\t$h{$_}\n";
        }
        else
        {
                @s = sort {$a <=> $b} @n;
                for($i=0; $i <= $#s; $i++)
                {
                        if($i ==  0)
                        {
                                push(@na,$s[$i]);
                        }
                        else
                        {
                                $len = $#na;
                                if($s[$i]-$na[$length] <= 45)
                                {
                                        next;
                                }
                                else
                                {
                                        push(@na,$s[$i]);
                                }
                        }
                }
                foreach $k(@na)
                {
                        $hn{$k} = $_;
                }
        }
}
[download]