(my $label_colnum = &column_exists( \@data, $_[1] || 0 )) == -1 and die;
(my   $key_colnum = &column_exists( \@data, $_[1] || 1 )) == -1 and die;
(my $cross_colnum = &column_exists( \@data, $_[1] || 2 )) == -1 and die;
# ...

##</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;

or

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