@colors = qw(pink yellow blue green);

open(COLORS, ">>colors.txt");
foreach $color (@colors){
	print COLORS "$color\n";
	print "sending $color to File\n";
}
close(COLORS);

while (<STDIN>){
	chomp;
	print COLORS $_;
	if ($_ eq "quit"){exit}
	}