Select Code to Download

my %Columns = (
    'label' => 0,
...
    $Columns[$col_name} = column_exists( \@data, $_[1] || $Columns{$co
+l_name} );
    die if $Columns{$col_name} == -1;
}

my %Columns = (
    'label' => {
...
        column_exists( \@data, $_[1] || $Columns{$col_name}{default} )
+;
    die if $Columns{$col_name}{exists} == -1;
}

do_A; do_B; do_C;
do_D;
...
do_E;
do_A; do_B; do_C;
do_C;

for (\&do_D, \&do_E, \&do_C) {
    do_A; do_B; do_C;
    $_->();
}