while (<DATA>){ print $_; } __DATA__ @array1 @array2 @array3 [download]
In reply to printing a scalar as an array by Anonymous Monk