Help for this page
use Modern::Perl; use Data::Dump qw/dump/; ... subsection 4 line 1 subsection 4 line 2
open my $fh, '<', \$subsections[1]; print while <$fh>;