tie my @nums, 'Tie::File', $filename;