open (MYFILE, "$filename");
$ColumnNames = <MYFILE>;
$array[0] = $ColumnNames;