sub uniqueString {
return keys %{{ map { $_ => 1 } @_ }};
}
@array = ("perl", "php”, "per", "asp");
print join(" ", @array), "\n";
print join(" ", uniqueString(@array)), "\n";

 

Suggest An Answer

No suggestions avaliable!