Unnecessary Variables

     my @lib = @$lines;

     # This for loop does not allow return until each sub is finished
     for my $line (@lib) {

• We have already seen Use immediately follows assignment

     # This for loop does not allow return until each sub is finished
     for my $line (@$lines) {

Next

Copyright © 2006 M. J. Dominus