print "@array"; is equivalent to[0] print join(($"//), @array);, and $" eq " " is true by default.

Try print @array; instead, which is equivalent to print join(($,//''), @array);

0: Using Perl 5.10-and-greater's undefined-or // operator.