Help for this page
my @paragraph = map { ... : $_ } } grep /^#/, @lines;
my @paragraph = map { if ( /^#/ ) ... } : (); } @lines;