my @split_names = split(/\./,$fileext);
my ($column) = $split_names[0];