perl -E '@coords = qw(1069 126046 126047 126048); map {say if $_ > $la
+st+50; $last = $_} @coords'

______
1069
126046
[download]

Thank you for the reply.

I have these data inside a file. So how am I supposed to format? This code is direct from command line right?

Thank you
Deepak

So, based on the code you posted in response to Dave, you should be able to replace your foreach loop with:

foreach (sort keys %h) {
    @n = split /\t/, $h{$_};
    map {say if $_ > $last+50; $last = $_} @n;
}
[download]

I need a small help with a script.

Please post the portion of the script that you need help with.

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]