open my $fh, '<', \$subsections[1]; print while <$fh>;