Think about Loose Coupling  
PerlMonks 
Re: Sorting the numbers: A little tricky.by oxydeepu (Novice) 
on Jan 28, 2013 at 09:39 UTC ( #1015659=note: print w/replies, xml )  Need Help?? 
Hi all, for ex, 109026 3 became 109026 3 So what I have to do is iterate through the postions, which is column 1, get the postions which go increasing and till there is a difference between the current postion and (latter postion + 50) becomes > 50. for example 109027 28 in the above set, 109027 109078 (which is 109028 + 50) 30 the 30 is the value of position 109028. next step i have to start from 116958 go through 116963 till 153087, since the difference 153087  (116963 + 50 ) becomes > 50 116958 117013 (which is 116963 + 50) 72 where 72 is the value for 116963 then i will start from 153087, since there no increasing. I have to stop the iteration and out like this 153087 153137 (which is 153087 + 50) 32 This is the problem. I don't know whether i explained it better than last time. I don't have a code, i'm still stuck with how to implement. Hoping for help. Thank you in advance.
In Section
Seekers of Perl Wisdom

