my @array = ("white","blue","yellow");
my %hash = ();
foreach my $temp (@array) {
$hash{$temp}=$temp;
}
print keys %hash;