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

print keys %hash;