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

 

BY Best Interview Question ON 13 Jan 2019

Suggest An Answer