while (){ print $_; } __DATA__ @array1 @array2 @array3