my %Columns = (
    'label' => 0,
    'key' => 1,
    'cross' => 2,
);

foreach my $col_name (keys %Columns)
{
    $Columns[$col_name} = column_exists( \@data, $_[1] || $Columns{$col_name} );
    die if $Columns{$col_name} == -1;
}

##</code><code>##

my %Columns = (
    'label' => {
        default => 0,
        exists => 0,
    },
    'key' => {
        default => 1,
        exists => 0,
    },
    'cross' => {
        default => 2,
        exists => 0,
    },
);

foreach my $col_name (keys %Columns)
{
    $Columns[$col_name}{exists} =
        column_exists( \@data, $_[1] || $Columns{$col_name}{default} );
    die if $Columns{$col_name}{exists} == -1;
}

##</code><code>##

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

##</code><code>##

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