tie my @array, 'Tie::File', $filename, recsep => '# input for  ';