tie my @array, 'Tie::File', $numberFile or die "failed to open $numberFile";