@Array 	= <iFile>;									# Copy File 2 Array
@Array 	= grep {$_ =~ /^GO./}@Array;							# Select all lines starting with GO
while (@Array){

	@Array1 = splice(@Array,2);				# Drop first two colums
}