Why do you open the file using open? You don't seem to be using the file handle IN anywhere.

But, when opening it, you correctly specify the path as "Output/$in". You should do the same when tying the file:

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

Otherwise, it just creates a new file in the current directory, populates its first line, and that's it.