Thank you So Much Sir! Well I'll read All these link and will try to understand what change u exactly made! Ur program were not working perfectly I made a change in it :p

 open my( $fh ), '<', $$lnameref;
    while( my $_ = <FH> )
[download]

 open my( $fh ), '<', $$lnameref;
    while( my $_ = <$fh> )
[download]

Now It's Perfect! It's been whole night spent on it thats why am sleepy now but if der will be some problem in any line thn I'll get back to u on it! u asked for terms! here are some of them! http://prntscr.com/3ig7pl Thank You So Much!