I'm not sure I see where to put this chunk of code. I'm thinking that your my $current = <$handle>; and while statement would replace my while (<IN>), but I'm not certain. If so, then I (think I) understand what's going on. Otherwise I'm totally confused. Can you please elaborate?