Select Code to Download

sub column_exists
{
  my ( $ArrayRef, $Column ) = @_;
  return ( $ArrayRef->[$Column] || $ArrayRef->[0] );
}

  my $label_colnum = &column_exists( \@data, 1 )
  if ( $label_colnum == -1 ) { die "Something bad!"; }