tie my @array, 'Tie::File', "Output/$in" or die ...
#                            ~~~~~~~