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) {