tie @array, 'Tie::File', $numberFile || die("failed to open $numberFile");;