open (MYFILE, 'Data.txt');

$ColumnNames = <MYFILE>;

@colarray = split ',', $ColumnNames;