What have you done so far to debug this problem?

The spaces come because you do:

print HAN "@array";
[download]

And that's just what Perl does. When you print an array, Perl inserts $" between the array elements. And $" is set to a space by default. Read perlvar and maybe do:

local $" = "";
[download]

before printing. Or print line by line:

print HAN $_ for @array;
[download]

@array is a very bad name for a list containing the lines of a file.