while (@array1){
push (@array_wb, $_[0]);
push (@array_wb, $_[1] );
push (@array_wb, $_[2] . "\n");
push (@array_wb, $_[3]);
push (@array_wb, $_[4] );
push (@array_wb, $_[5] . "\n");
push (@array_wb, $_[6]);
push (@array_wb, $_[7] );
push (@array_wb, $_[8] . "\n");

print (@array_wb);
}