Select Code to Download

sub build_para
{
    return $handlers{'para'}->(join "" => map { $handlers{$_->[0]}->($
+_->[1]) } @{$_[0]});
}

my @test_data_2 = ( 'para', [
    ['none', 'The quick brown '],
...
}

print build_HTML(@test_data_2);

*build_para = curry(\&build_HTML, 'para');
print build_para(\@test_data);