wenn du print IN join @array; machst, ist klar, dass nichts geschrieben wird.
es ist dasselbe wie print IN scalar @array, (); =
print IN join 1, ();
wenn print IN @array nur eine zeile schreibt, dann ist auch nur eine
zeile in @array. der fehler liegt dann natürlich in der füllung von array.