@Array 	= <iFile>;						# Copy File 2 Array
@Array 	= grep {$_ =~ /^GO./}@Array;				# Select all lines starting with GO
while (@Array){
	@Array1 = splice @Array,0,2;				# Drop first two colums
	push @Array2,@Array1;
}
print oFile @Array2;