tie %users, 'Tie::File', $datafile or die $!;