{ 

no warnings 'uninitialized';
chomp $results;


push (@oid,$results[0]);
	$_ = defined($_) ? $_ : '' for @results;

		
print "\n$results";
my $colour=();
my @colours=();

@colours =  ( "baby blue", "baby pink", "black", "dark blue", "brown", "dark purple", "green", "orange", "hot pink", "light purple", "red", "white", "yellow");
foreach $colour (@colours) {
print $colour;
}


print OUT "$results$colour\n"

}